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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


The eztec front-end host diagnostic is e di tic progrem to test 
i, aes disk drive subsystem. Tests ere Sortoraed te verity 
et: 


' e. The processor cen properly communicate with the eztec 
through the edepter card. 


b. The eztec can seek and head select properly. 


c. The aztec conforms to the specified seek and 
rotetionel times. 


d. The aztec cen perform certain basic functions in 
response to mscp commends. 


The aztec front-end/host diagnostic consists of one progrem thet runs 
in the host processor end programs that run in the eztec controller's 
buffer memory through en ey celled the “diagnostic machine” 
which resides in the eztec. The host processor progrem will be | 
responsible for testing the eztec edepter, testing some of the drive 
functions, downline loading the “diagnostic machine” progrems into 
the eztec end sterting their execution. When the “diagnostic 
mechine” eregrene ere running, they will control the testing by 
requesting the host processor to supply information end print error 
messages. The “diegnostic mechine” programs will inform the 
processor when e test is complete. 


Up to four (4) aztec controllers with one or two spindles each may 
be selected for test by this diagnostic. 


One aztec “unit” is defined es e single pletter. There are two 
letters on one spindle in en aztec drive. An aztec controller may 
eve either one or two drives (two or four platters). The unit | 

numbers for the aztec pletters come in peirs. The removeable media 

hes en even number and the fixed media has the sequentially following 


odd number. 
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Softwere peremeter questions include number of retries in case of 
en error, whether to continue execution after failures, select 


seek erea in the disk, select manuel intervention test and 
set trece mode. 


This diagnostic is divided into 6 modules: 
module 0 - documentetion 


module 1 - literals, format stetements, ascii text, . 
globel dete, hardware configuration questions 
end default tebles, software parameter questions 
end default teble, initialization code, cleanup 
code, summary report code 








El 


module 2 - global routines 

module 3 - tests 1 - 29 

module 4 - tests 9,10,11,12,13,19,21,26,27 (dm code) 
module 5 - Last eddress and setup section 


AZTECO.R1I6 is a file conteining literals and field 
delaretions used throughout the program. 


This diagnostic hes been written for use with the diagnostic 
runtime services software (supervisor). These services provide 
the interfece to the operator end to the ogeyuere environment. 
This progrem cen be used with XXDP+, ACT, APT, slide end paper 
tepe. For e complete description of the runtime services, aarer 
to the XXDP+ user's manuel. There is @ brief description o 
the runtime services in section 2 of this document. 


1.2 SYSTEM REQUIREMENTS 


PDP-11 Processor Ad 

28K Words of memory (minimum) 

XXDP+ Load media : 

One or more eztec disk drive subsystems 
Line clock - either type L or P 

Console terminel 


1.3 RELATED DOCUMENTS AND STANDARDS 


AZTEC - RC2S Functional specification Rev 5, 3/9/82 

Mess storage control protocol (MSCP) (version 1.0) 
Unibus/Q-bus storage systems port (version 1. 

Diagnostics and utilities gresesen CR. Leary, Mey 1981) 
Aztec diagnostic project plen . , 

Di tic engineering functional specification for aztec 
Resident diagnostics 

XXDP+ User's manuel 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

The bus, host processor, memory, system clocks and console terminal 
ere ell assumed to be rene toneee properly when this diagnostic is 
run. If they ere not, the result of running this program is 
unpredictable. 

1.5 ASSUMPTIONS 


An aztec that meets the specifications for diagnostic machine timing 
will mest the specifications for MSCP timing. 


2.0 OPERATING INSTRUCTIONS 


This section conteins ea brief description of the runtime services. 
for detailed information, refer to the XXDP+ user's manual (CHQUS). 
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2.1 COMMANDS 


There ere eleven legal commands for the diagnostic runtime services 
(supervisor). This section lists the commands d gives e very 
brief description of them. The XXDP+ user's manuel hes more dete: le. 


COMMAND EFFECT 
START | Start the diagnostic from en initiel state 
RESTART Start the diagnostic without initializing 
CONTINUE Continue et test thet was interrupted (efter tC) 
PROCEED Continue from en error helt 
ExIT Return to XXDP+ monitor (XXDP+ operation only! ) 
ADD Activate e unit for testing (ell units ere 
cone dered to be active at start time 
DROP Deactivate ea unit 
PRINT Print statistical information (if implemented 
by the diagnostic - section 4.0) 
DISPLAY Type e list of all device information 
FLAGS Type the stete of ell flags (see section 2.3) 
ZFLAGS Cleer ell flegs (see section 2.3) 


A command can be recognized by the first three characters. 
So you may, for exemple, type “STA” instead of “START”. 


2.2 SWITCHES 


There ere several switches which are used to modify supervisor 
ration. These switches are appended to the legal commands. 
All of the legel switches are tebuleted below with a brief 
description of each. In the descriptions below, a decimal number 
is designated by “DDDDD". 


SWITCH EFFECT 


/TESTS:LIST ogy only those tests ae oer in 
list ist is e string of tes 
aM do for exemple - /TESTS:1: st aS. 10. 
This list will cause tests 1,5,7,8,9,10 to 
be run. All other tests will not be run. 


/PASS:DDD000 Execute DDDDD passes (DDDDD = 1 to 64000) 


/FLAGS:FLGS Set specified flags. flags are described 
in section 2.3. 


/EOP :DDDDD Report end of pass mess efter every 
DDDDD passes only. (DDDDD = 1 to 64000) 
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/UNITS:LIST TEST/ADD/DROP only those unite specified 
in the list. List exemple - /UNITS:0:5:10-12 
use units 0,5,10,11,12 Cunit numbers = 0-63) 


Example of switch usage: 
START/TESTS: 1-5/PASS: 1000/E OP: 100 

The effect of this commend will be: 
1. Tests 1 through 5 will be executed. 
2. All units will tested 1000 times. 


3. The end of pass messages will be 
printed efter each 100 passes only. 


A Switch can be recognized by the first three characters. You 
may, for exemple, type “/TES:1-5" instead of "/TESTS:1-5". 


Below is e table thet specifies which switches can be used by 
each command. 


TESTS PASS FLAGS EOP UNITS 


START 
RESTART xX x 


2.3 FLAGS 


Flags ere used to set up certain operational parameters such as 
loopi on error. All flags ere cleared at startup and remain 
cleared until explicitly set using the flags switch. Flags 
are also cleared after a start command unless set using the 
fleg switch. The ZFLAGS command om also be used to clear 
ell flegs. with the exception of the START and ZFLAGS commands, 
No commands effect the state of the flags; they remain set or 
cleared as specified ty the lest flag switch. 


FLAG EFFECT 

HOE Halt on error - control is returned to 
runtime services command mode 

LOE Loop on error 

IERs Inhibit ell error reports 
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I8Re Inhibit ell error reports except first 
level (first level contains error type, 
number, PC, test end unit) 


IXRe Inhibit extended error reports (those 
ceiled by PRINTX macro's) 

PRI Direct messages to line printer 

PNT Print test number as test executes 

BOE “BELL” on error 

UAM Unattended mode (no manual intervention) 

ISR Inhibit stetistical reports (does not apply 


to diagnostics which do not support statis- 
tical reporting) 


IOR Inhibit program dropping of units 

ADR Execute autodrop code 

LOT Loop on test 

EVL Execute evaluation (on diagnostics which 


have evaluation support) 
terror messages are described in section 3.1 


See the XXDP+ user's manuel for more details on flegs. You may 
specify more then one flag with the fleg switch. For exemple, 
to ceuse the program to loop on error, inhibit error reports 
end type e “BELL” onerror, you may use the following string: 


/FLAGS:LOE: IER: BOE 


2.4 HARDWARE QUESTIONS 


When a diagnostic is started, the runtime services will prompt - 
the user for herdware information by typing “CHANGE HW (L) ?” 
you must enswer “Y" after a start command unless the hardware 
information hes been “preloaded” using the setup utility (see 
chepter 6 of the XXDP+ user’s manual). When you answer this 
question with e “Y", the runtime services will ask for the number 
of units (IN DECIMAL). You will then be asked the following 
questions for each unit. 


@ UNITS (D) ? 


Answer wiith the number of units to be tested (no default). This 
enswer will determine how many times the following questions are 
esked. A unit is a logical disk (single platter) on an aztec. 
One to sixteen units may be specified (maximum configuration of 
four controllers with four platters per controller). 
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IP ADDRESS (0) 172150 ? ii 


Answer with the address of the IP register of one eztec controller 
es eddressed by the processor with memory monopenens turned off 
C(i.e., an even 16-bit address in the range of 160000 to 177774.) 


VECTOR (0) 154 ? 


Answer with the interrupt vector address of the aztec controller. 
A vector eddress in the range of 4 to 774 may be specified. 


BR LEVEL (0) 5? 


Answer with the interrupt priority used by the aztec. levels 4 to 7 
ere accepted. 


UNIT NUMBER(S) (D) 0 ? 


enswer with the physicel platter number(s) for the pletter(s) you wish 
to test (NO DEFAULT). The removable platter is an even number and the 
fixed platter is the sequentially followng odd number. 


2.5 SOFTWARE QUESTIONS 


After you have enswered the hardware questions or after a restart 

or continue command, the runtime services will ask for softwere 

parameters. These parameters will govern some diagnostic specific 

operation modes. You will be prompted by “CHANGE SW (L) ?” if you 

wish to ~ 5 eny paremeters, answer by typing “Y". The softwere 

—— the default values ere described in the next paragr- 
Ss . 


‘Use top surface for all single surface tests (L) Y ? 


Answer yes to use top surface for all single surface testing. 
enswer no to use bottom surface for all single surface testing. 
The tests effected are 15 thru 18, 21 thru 23 and 25. 


Do you wish to limit the erea tested in tests 15-18 (L) N ? 


Answer yes if you wish to specify ea starting and ending track for the 
test erea. this limitation applies only to seek verification testing. 
(tests #15 through $18). The eae A) two questions will be asked only 
if this one is enswered yes. The limits will be 0 and 820 for top 
surface end 821 and 1641 for bottom surface. 


Sterting track (D) 0 ? 

Answer with the beginning track number of the eree you wish to select 
for testing. This applies to tests #15 through #18 only. Test 22 
will also use this starting track, if you answer this question 
instead of track 0 or 821. 

Ending track (D0) 820 ? 


Answer with the last track number in the erea you wish to select for 
testing. This applies to tests #15 through #18 only. 


Do you wish to do the manual intervention test (L) Y ? 
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Answer yes to A wre test of the write protect switches. Answer no 
to omit this tes 


Do you wish trace mode (L) Y ? 


Answer no if do not like the test names to be printed out. 
Default is yes 


2.6 EXTENDED P-TABLE DIALOGUE 


When Rg gate oy ey questions, you ere building entries 
in @ Vie ofa et et r) the devices pres “ees test. , The she 9! implest 
—. —e, - to enswer or each 

eve 8 mult lp ened Sevtee guch as 


answers ere repetitious. 


To illustrate e more the Xviie = ’ he ie duet you are testin 

a Bike ak Me zu = a ice consists § 
with e: on 8 vic r 

~_e units are Sescribe ' the octel numbers $4.8 

is one herdwere peremeter that can vary among units celied the 

Q-FACTOR. This. Q-FACTOR may be 0 or 1. cae is @ simple way 

to build ea teble for one xyll with eight units. 


@ UNITS (D) ? 8<CR> - 


UNIT 1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 
UNIT 2 
4 ADDRESS (0) ? 160000<CR> 

-DEVICE @ (0) ? 1<CR> 
o FACTOR (0) 1 ? O<CR> 

3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2<CR> 
Q-FACTOR (0) 0 <CR> 
Cs ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) 2? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 5 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? «CR» 


UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 
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UNIT 7 
CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 1<CR> 
UNIT 8 
CSR ADDRESS (0) 2? 160000<CR> 
SUB-DEVICE @ (0) ? 7<CR> 


Q-FACTOR (0) 1 ? <CR> 


Notice that the default value for the Q-FACTOR changes when oe 
non-default response is given. Be cereful when specifying 
multiple units! 


As you can see from the above exemple, the hardware parameters 
do not vary significantly from unit to unit. The procedure shown 
is not very efficient. é 


The runtime services can take multiple unit specifications however. 
Let's build the same table using the multiple specification feature. 


@ UNITS (D) ? 8<CR> 


UNIT 1 
CSR ADDRESS ( 


0) 2? 160000<CR> 
SUB-DEVICE @ (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) 2-5<CR> 
Q-FACTOR (0) 0 7? O<CR> 


~ 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
S 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


As you can see in the above dial . the runtime services will 
build as many entries as it can with the information given in any 
one pess through the questions. In the first pass, two entries 
ere built since two sub-devices end Q-FACTORS were specified. The 
services assume that the CSR address is 160000 for both since it 
was eoeg tt Led onty once. In the second pass, four entries were 
built. This is cause four sub-devices were specified. The 
“-" construct tells the runtime services to increment the date 
from the first number to the second. In this cease, sub-devices 
2, 3, 4 ond5 were specified. (If the sub-device were specified 
by eddresses, the increment would be by 2 since addresses must 
be on en even boundary.) The CSR addresses and Q-FACTORS for 
the four entries ere assumed to be 160000 and 0 respectively 
since they were only specified once. The last two units are 
specified in the third pass. 


® 
m 
< 
Hw 
oO 
m 
te 
~ 
oO 
- 
~~ 
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a whole process could have been accomplished in one pess es shown 
Ow. 
@ UNITS (0D) ? 8<CR> 


IT } 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) 2? 0-7<CR> 
Q-FACTOR (0) 0 ? 0,1,0....1,1<CR> 


As you can see from this exemple, null replies (commes enclosi 
e null field) tell the runtime services to repest the lest reply. 


2.7 QUICK START-UP PROCEDURE (XXDP-) 
To start-up this program: 

1. Boot XXDP- 

2. Give the date 


3. Type “R Neme", where name is the name of the bin or bic 
file for this program 


4. Type "START" 
5S. Answer the “CHANGE HW” question with “Y” 
6. Answer all the herdware questions 
7, Answer the “CHANGE SW” question with “N” 


When og follow this procedure you will be using only the 
defaults for flags and software peremeters. These defaults 
ere described in sections 2.3 and 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


There ere three levels of error messages thet may be issued by 
e di tic: generel, basic and extended. Generel error menonges 
ere slways printed unless the “IER” flag is set (section 2.3). The 
general error message is of the form: 


Neme type number on unit number tst number PC: XXXXxXXx 
error message 


ewhere; NAME = Diagnostic name 
TYPE = Error type (SYS FATAL, DEV FATAL, HARD or SOFT) 
NUMBER = Error number 
UNIT NUMBER = 0 - N (N is lest unit in ptable) 
TST NUMBER = Test end subtest where error occurred 
PC:XXXXXX = Address of error message cell 


Besic error messeges ere messages thet contein some additional 
information ebout the error. These ere always printed unless 
the “IER” or “IBR” flags ere set (section 2.3). These messages 
ere printed efter the associated general message. 


ben 
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Extended error messeges contein supplementery error informet ion 
such es register contents or good/bed dete. These ere elweys 
er ists, unless the “IER”, “IBR” or “IXR" flegs ere set (section 

These messeges ere printed efter thes essocieted general 
error messege end eny essociated basic error messages. 


3.2 SPECIFIC ERROR MESSAGES 
Tre following ere device fatel error messages: 


1) RCSA FAILED TO RESPOND 
2) RCIP FAILED TO RESPOND 
3) INIT STEP READ ERROR 
aver MASK = XX FAILING Hy bP . DATA = 
- §! READ FAILURE 
xX = 4 - STEP 3 READ FAILURE 
xX = 10 - STEP 4 READ FAILURE 


4) STEP READ DATA DOES NOT MATCH 
ADDRESS: EXPECTED: READ: 


VECTOR AND As LEVEL TEST FAILURE 
INTERRUPT AT VEC= BR LEVEL= 

NO INTERRUPT FROM PORT / CONTROLLER 

BR LEVE L RECEIVED/TYPED_ IS INCORRECT ! 

HOST DETECTED TIME OUT ERROR 

) RING BUFFERS NOT CLEARED BY THE PORT 

) DATA ECHOED FROM RCSA DOES NOT MATCH 

) MEMORY BUFFER DOES NOT CONTAIN EXPECTED DATA 
) DM CODE RETURNED FAILURE CODE 


The following ere DUP/MSCP commend feilure messages: 
aces UNIT DOES NOT COME ONLINE 
PROG 


eee OD UOHU 
WR OVuevuuny 


™ 
‘es 
a 

= 
vv" 
»> 
= 
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A DUP COMMAND FAILURE 
GET “alt STATUS COPmAND FAILURE 
AVAILABLE COMMAND FAILURE 


Tre following seek error messeges ere used. 
) FORWARD SEEK ERROR 


RANDOM ERROR 
24) RC25 SEEK FAILURE 
Also. one of the following will be printed as extended 
information: 
STARTING TRACK: ENDING TRACK: DESIRED LBN: 


NUMBER OF SEEWS (D): LBN: 








-— 
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25) MEAD SWITCH FAILURE 
T AD 


:  WEAD: TRACK: 
26) SECTOR READ FAILURE 
T:; MEAD: TRACK: 
27) OFFSET READ ERROR 
MAX. OFFSET VALUE: 
28) WRITE DATA TEST IN ERROR 
WRITE DATA: READ DATA: 
TRACK: OR: HEAD: 
STATUS: (NONZERO WILL INDICATE MICROCODE ERROR INFO. ) 
2°) WRITE PROTECT TEST FAILURE 
EXPECTED SW = OFF ACTUAL SW = ON PLATTER @ = (D) 
EXPECTED SW = ON ACTUAL SW = OFF PLATTER @ = (D) 


Note: All numbers displeyed ere octel unless (D) is indicated 
for decimel number. 


LEN means logicel block number from 0 to 143325 (octel ) 


TRACK refer to LBN trecks from 0 to 3151 (octel) 
except in DM code tests where this means DBN tracks. 


UNIT refers to pletter number. 
SECTOR refers to DBN sector for DM code tests. 


HEAD = © meens top surfece top pletter 
40 meens bottom surfece top platter 
100 means top surface bottom (fixed) platter 
140 means bottom surface bottom (fixed) platter 


3.2.1 ERROR CODES : 


Wrenver RCSA date contains fetel error codes or there was 
en error in end packet stetus code received for eny of the 
MSCP commands used or if there wes an error log mess 

then the error code received from port will be given by 
one of the following messages with 6 octel digits: 


RCSA ERROR STATUS: 
END PACKET ERROR STATUS: 
UNEXPECTED LOG PACKET ERROR STATUS: 


Also, en explanation of the error code in the form $FTLERR- 
will be printed out es en extended error message. 






Be 


The following ere self-detected fetel port/controller errors. 
These will be reported es extended error messeges when RCSA 
date conteins fetel error codes: 


$FTLERR- UNRECOGNIZABLE ERROR CODE 

$FTLERR- ENVELOPE/PACKET READ (PARITY OR TIMEOUT) 

SFTLERR- ENVELOPE/PACKET pe yet OR TIMEOUT) 
aed ROLLER ROM pp ARITY 

sFTLERR- aed ry 2 RAM P 


ONTROL sR PARITY 
$FTLERR- RING READ (PARITY OR TIMEOUT) 
$FTLERR- RING WRITE (PARITY OR TIMEOUT) 
INTERRUPT MASTER 


$FTLERR- HOST ACCESS TIMEOUT 

$FTLERR- CREDIT LIMIT EXCEEDED 
BUS MASTER ERROR 

$FTLERR- DIAGNOSTIC weg FATAL ERROR 
INSTRUCTION LOOP T T 


$FTLERR- INVALID ts 3 IDENTIFIER 
SFTLERR- INTERRUPT WRITE 

$FTLERR- MAINT ENANCE READ/WRITE ee te REGION IDENTIFIER 
$FTLERR- MAINTENANCE WRITE LOAD TO NON- oe CONTROLLER 
$FTLERR- eee ce’ ERROR (NON-PARITY ) 


NIT SE E ERROR 

$FTLERR- HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR 
PURGE/POLL HARDWARE FAIL 

$FTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT) 
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SEQ 0016 
The following are return status messages. If re se status 
error, then one cf DUP return status codes or MSCP codes 

will be printed out. 


$FTLERR- RESPONSE STATUS ERROR: 

$FTLERR- SUPERVISOR SERVICE CALL FAILED 
$FTLERR- PORT/CONTROLLER TIMEOUT ERROR 
$FTLERR- UNKNOWN RETURN STATUS CODE 


Dup return stetus codes 


9 
i 
Cc 
i. 
5 
; 


LE 
MEDIA FORMAT ERROR 
WRITE PROTECTED 
COMPARE ERROR 
DATA ERROR 
HOST att ACCESS ERROR 
CONTROLLER ERROR 


DRIVE ERROR 
MESSAGE FROM AN INTERNAL DIAGNOSTIC 





Ee 





FAILING FRU 


One or more of the four different module will be called out 
some times based on the major error code received from port. 


1) ADAPTER BOARD 

2) CONTROLLER BOARD 
3) ORIVE BOARD 

4) MECHANIC SET 


For detailed information about the error code displayed and 
possible failing logic/function call-out, the RC25 controller 
ae deals with error/status condition codes should be 
consu , 


a ‘ 
: The following are system error messages: 


POWER DELAY - WAITING 

TOO MANY UNITS 

NO CLOC” WAS FOUND IN THE SYSTEM 
INCORRECi TRACK NUMBERS SELECTED 


Note: If there was no clock in the system, then the diagnostic 
will not run. 





SEQ 0017 
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4.0 PERFORMANCE AND PROGRESS REPORTS 


At the end of each pass, the pass count is given along with the 
totel number of errors reported since the diagnostic was sterted. 
The “EOP” switch can be used to control how often the end of pass 
message is printed. Section 2.2 describes switches. 


5.0 DEVICE INFORMATION TABLES 


The Supervisor builds one Hardware P_Table for every logical 
unit tested while enswering Hardware P_table questions. 

This diagnostic gets one table at a time in sequence and 

runs diagnostic tests as selected. The P_table looks like this: 


HWP_TABLE: 
0 :HMP_IP_ADDRESS 
2 :HWP_VECTOR 
4 :HWP_BR_LEVEL 
é :HUP_UNIT_NUMBER : 


6.0 TEST SUMMARIES 
A brief description of the tests done are described below: 


TEST #1 REGISTER EXISTENCE TEST 


This test will first check for the existence of the address of the IP 
end SA registers for the device under test. If these memory addresses 
ere non-existent, the error will be reported. 


If the operator has specified loop on error, looping will be from the 
beginning of each sub test. 
TEST #2 INITIALZATION TEST (POWER UP DIAGNOSTICS) 

This test init’s the aztec and runs the po up diagnostics by 
writing with step 1 date. Then it will check for errors and 
report if aztec does not come upto step 2 read. 

TEST #3 DIAGNOSTIC WRAP TEST 
The aztec will be initialized in diagnostic wrap mode and a one bit 
end also zero bit floated through the SA register to see that it 
echoes properly. 


A failure to echo whet was written will result in a callout to the 
edepter cerd fru. 


If the operator has specified loop on error, the program will loop on 
the failing write and read. 
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Ge 


TEST #4 - VECTOR AND BR LEVEL TEST 


TEST @S 





The init sequence will be started with the interrupt enable bit set to 
verify the aztec's vector and BR level. 


This test assumes the vector given by the operator is correct. 
The priority level of the interrupt request will be verified. 


Failure of the aztec to vector properly will necessitate that this 
program be restarted. A completed interrupt at the wrong BR level 
will be reported. 


Loop on error will restart this test if the error is recoverable. 


STEP 1 -3 INITIALZATION TEST 


This test will check for information echoed from the port at 
each step read oe upto thet step from scratch. If there 
wes en error reported or echoed information was incorrect 
the error will be reported. 


Loop on error will be from the beginning of sub test. 


Port gives some information about the Port at every step read 
in RCSA Register. This information will be printed out to the 
operator es follows: 


1) At step 1 read the following will be given: 
PORT SPECIFIC INFO: .’NV/QB/DI/0D/MP/ = xx (0) 


NV = 1 means that the port does not support a host settable 
interrupt vector address 5 
= 1 means thet the Port supports e 22-bit host bus. 
This bit will be e O for unibus. . ; 
= 1 means that the Port implements enhanced diagnostics, 
i.@. wraperound, purge end poll tests. 

1 means thet the Port ellows odd host address to be 

specified in the buffer descriptor. ’ 

1 means thet the Port s rts address mapping. The 
host supplies e virtual date address in the buffer 
descriptor which is mapped to ea resultant address 
using aeaning registers maintained in host memory. 
xx Two digit octal value of the above right justified. 


2) At step 2 read the following will be given: 
PORT TYPE NUMBER = xx (0) 
xx 0 means UNIBUS/QBUS storage systems port. 


QB 
DI 
OD = 
MP 






SEQ 0019 





SEQ 0020 





3) At step 4 read the following will be given: 
MICRO CODE: MODEL = xx (0) VERSION = yy (0) 


xx ® UDASO 
1 RC25 Integrated Controller 
5S TU81 Integrated Controller 
6 UDASOA 
7 QORXO1 
yy * Mod 16 value of the actual controller microcode 
version. 


TEST @6 PURGE AND POLL TEST 


This test will perform the first three steps of the init sequence. 
When the host responds to the step 3 transition it will write a one 
bit to bit 15 of the SA register, therby coauget ing the execution of 
purge end poll testing. The host then waits for the SA register to 
transition to e zero value. The host then writes zeroes to the S 
register simulating e “purge completed” host action. The host then 
reads the IP register to simulate a “start polling” command from the 
host to the port. The test is complete when the controller announces 
the transition to step 4 in the SA register. 


Feilure to properly complete this test will be reported. 
Loop on error will restart the test. 


TEST @7 - SMALL RING BUFFER INIT TEST 


The aztec will be initialized without interrupts and wing the 
smallest ring buffer. This will be the first time that the é 
initialization sequence is carried out to completion. Initializing 
with the smallest ring buffer minimizes the host memory area with 
which the aztec controller must be able to communicate. 


Feilure to properly initialize the aztec and com_erea will be reported. 
If the operator has specified loop on error, looping will be from the 
stert of this test. 
TEST #8 - LARGE RING BUFFER INIT TEST 
The init sequence is executed without interrupts with a ring buffer 
lenge enough to cover the normal host communciations area —- and 
buffer space ( e 16 in message length and a 16 in command length). 


A failure to complete the initialization sequence without error will be 
reported. 


If the operator has specified loop on error, looping will be from the 
beginning of this test. 








Ie 





TEST @9 - “DIAGNOSTIC MACHINE” CODE DOWN LINE LOAD TEST 


This “Diagnostic Machine” program will attempt to transfer a block 
of date from host memory to an area in the controller and then 
examine the transfered date. 


If the transfered data does not compere correctly, then an error will 
be reported. This test also reports errors if any of. the routines 
used returned failure code. 


If the operator hes specified loop on error, 1] ing will be from 
the start of this test. sat, 


TEST #10 - NONEXISTENT MEMORY TEST 


This “Di tic Machine” program will attempt to read the first 
address of the 1/0 page of the host CPU. This location is reserved 
for diagnostics and a nxm should occur. 


If the controller does not see the nxm, there will be a fru callout 
of the edaepter cerd. 


If the operator has specified loop on error, looping will be from 
the stert of this test. 


TEST @11 - BUS ADDRESSING/DATA TEST A 


This “Di tic Machine” program asks the PDP-11 eregren te fill free 
—y (thet memory aveileble to the PDP-11 program that is not being 
used by the program or the PDP-11 supervisor) with an eae ? 
pattern (write address with address) and report the location and size 
of the free memory. Every location of free memory will be read and 
the data checked. 


If the date does not compare correctly, the address, data expected 
end date received are reported. 


TEST #12 - BUS ADDRESSING/DATA TEST B 


This test first brings aztec drive Ready and Online and then 
loads DM_12 progrem vector to port controller memory, then 
does the following: 


e. Give free memory address and buffer size to DM code 
end ask NM code write a pattern of one's complement 
of address at the address and expects to receive 
success or failure code from DM program. Then checks 
memory buffer for the expected pattern and reports 
error if encountered. 


b. If success, asks DM code to write to memory a pattern 
of all ones and checks for the pattern in memory. 





SEQ 0021 


Je 





c. If success, esks DOM code to write to memory @ pattern 
of ell zeroes and checks for the pattern in memory. 


d. If failure, retries will be done es ere by 
@ softwere question. Loop on error fl 
loop from beginning of test to the poin ~ letdee. 


TEST @13 - BLOCK TRANSFER TEST 


The ry. will of the Aztec controller to do block transfers to and from 
memory will be tested with different data patterns. The “write host 
memory” XFC and the “read host memory” XFC will be used. The host 
memory putters is 256 words in size. 4 different date patterns es 
given below are used. 


Pettern 0 Pattern 1 Pattern 2 Pattern 3 
111111 177400 155555 000377 
044444 007760 133333 170017 
022222 000377 066666 177400 


1) This test bri RC25 controller online and loads DM code 
progrem to controller's memory. 


-? First the host aoneey buffer is initialized with pattern 0. 
A send date commend with host buffer addresses (transmit and receive) 
is issued. 


3) DM code then reacs host memory buffer and puts in controller's 
memory end writes back in host memory receive buffer using XFC's. 


4) Host progrem compares both buffers for date pattern 0. 


5) If there was en error in comparision the error will be reported. 
If there was error in the MSCP DUP calls or initialization, this 
will elso be reported. 


Steps 2 thru 5 will be repeated for dete patterns 1,2 and 3. 


If en error was encountered the test will be aborted. If operator 
chose for retries, retries will be done from the start of the test. 


TEST #14 - SPIN UP/HEAD LOAD SEQUENCE 


This test first initielizes RC25 controller, initielizes com_erea, 
does set control cheracter istics. 


Then, this tort will first issue the mscp "available" command with the 
spin down modifier set. It will then wait for 30 seconds to insure 
thet the drive has had time to spin down. It will then issue the MSCP 
“online” commend to spin the drive up. This operation will be timed 
end the time will be reported to the operetor so that this time can be 
verified to make sure it is with in limits. The run/start and head 
loed internal diagnostics will run during this time. If an error is 
encountered the returned stetus of the “online” command will be 
something other than “success” and this status will be decoded 
end reported with error message. 


If the operator hes specified retries on error, the test will be 
repeated. 





SEQ 0022 





per eee K2 


TEST @15 - SEQUENTIAL SEEK AND VERIFY TEST 
This test brings RC25 controller and unit online and ready to accept 
MSCP DUP commands 


Starting with the user specified beginning track and incrementin 

through every track to the user specified ending track, this test will 

seek from track to track in @ forward direcion, then it will repeat 

oe coqrettan in the reverse direction, from the ending track to the 
ginning. 


This is @e single surface test end is done on top surface. The operetor 
cen select bottom surface also. 


A failure report includes strating track, ending track and desired 
treck. After reporting the feilure, the program will abort current 
seek end will jump to reverse seek. 


TEST @16 - SAWTOOTH SEEK AND VERIFY TEST 


This test brings RC25 controller and the unit online and ready 
to teke mscp commends. 


Sterting with the user = get beginning track and incrementing 
thr every track in the selected range, this test will perform e 
seek to the selected track and then e seek back to the beginning 
track. When ell tracks have been covered, it will do the same 
peoreae in the reverse direction with the ending track as the 

se. 


This is e single surface test and is done on top surface. 
The operetor cen select bottom surface also. 


error reports will stete starting, endi and desired tracks. 
If there wes en error the test will be rted unless the operator 
hes selected for retries. 


TEST @17 - CONVERGING/DIVERGING SEEK AND VERIFY TEST 


This test first brings RC25 controller and unit online so that 
MSCP commends cen be issued. 


This test performs seeks to the beginning track, then to the ending 
treck, then to the beginning track + 1, ending track - 1, beginning 
treck + 2, etc. until the tracks converge and then diverge again 
beck to the beginning and ending tracks. 








SEQ 0023 | 
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This is e single surfece test end is done on top surface. The 
operator cen select bottom surface also. 


Error reports will include sterting, ae end desired tracks. 
If feiluve in seek the test will be eborted unless the operetor 
selects retries. 


TEST @18 - TOGGLE SEEK AND VERIFY TEST 


This test brings RC25 controller and the unit on line and ready to 
eccept MSCP commends. 


One thousend seek commends will be issued one et a time to toggle 
between the are treck of 0 (lbm = 0) and the ending track 
of 620 (lon = 620 * 351). 


This is @ singie surfece test. seek is done only on top surface 
unless the operetor chose to seek on bottom surface by answering 
one of the software questions. The operator hes control over the 
beginning end ending trecks, if desired by enswering questions. 


Error reports include sterting, ending end desired trecks. After 
reporting the feilure the diagnostic will abort the test, unless 
retries is enabled. 


TEST @19 - HEAD SWITCH TEST 


This test will bring RC25 controller end the unit online 
end will loed dm c progres to controller's memory using 
€x commend. 


DM code will seek to both surfaces of the unit. The XFC stetus 
will be used to verify thet the proper track hes been reached. 
Block heeders will be reed to verify thet the proper heads sre 
selected. DM code will retry if there wes eny error in seek. 
DM code will give success or feilure code to the host. 


If fe:lure, the treck, head end unit wil] be reported es received 
from DM code. 


If retries ere turned on the test will be repeated. 


"ES* @20 - RANDOM SEEK AND VERIFY TEST 


This test brings RC25 controller and the selected unit online 
end then issues 1000 seeks one at eo time to randomly selected 
LBN trecks between the ronge of 0 - 1641. This will ensure head 
switch es well beceuse trecks over 820 will be in the bottom 
surfece of selected unit. 


Error reports include seek count end feiling track number. If 
loop on error fleg is set, failing track will be retried for ever. 








| TEST @21 - SECTOR ACCESS TEST 


Tris test brings RC25 controller end selected unit online 
eng then loeds DM 21 vector errey into controller's memory 
by giving EX_SUP_PROG commend. 


Tre OM progres will seek to diegnostic treck 0 end reed 32 
blocks efter making sure thet good header is found. DM code 

will retry if eny error wes found. om code will send stetus beck 
to host with feiling unit, heed end treck. Error will be reported 
by ost code. 


Tris i's @ single surfece test. top surfece will be eccessed 
unless the operetor chose bottom surfece by enswering one of 
the softwere questions. 


"ES? @22 - CONTROLLER PROCESSING TIME TEST 
Tris test brings RC25 controller eng selected unit online. 


The controller processing tise is meesured by evereging the 
time it tekes to do 100 zero length seeks, thet is, seeks thet 
ere zero trecks long. 


Tris is @ single surfece test. seek will be done on top surface 
wrless the operetor chose to seek on bottom surface. Track 0 

wt oe a or the sterting treck number es given by the operetor 
we ° 


If there wes eny error in seek, this will be reported with the 
the number of seeks completed end desired treck. The test will 
be eborted wless retries sre enabled. , 


If success, the ever time will be reported. Controller 
processing time expected will be eround 2 as. 


"EST @23 - ONE TRACK SEEW TIMING TEST 
Tris test brings 8C25 controller end selected unit online. 


Gne treck seek time is the ever of ell one treck seeks thet 
do not include @ heed switch. ell forwerd one track seeks will 
be done end timed end then reverse one track seeks will be 
Gone end timed. Averege time will be reported. The expected 
time will be eround 6 to 7 as. 


Tris is @ single surfece test. ‘op surfece will be used unless 
the operetor chose otherwise. Seeks will be from stert to the end of 
trecs. 


If there wes en error, error will be reported end the test aborted 
wiess retries ere turned on. 
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SEQ 0025 
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TEST 024 - AVERAGE SEEK TIMING TEST 
This test brings RC25 controller end selected unit online. 
The everege seek time is the everege time it tekes to do 


@ seek given thet it is covel ty likely to stert on eny treck 
ae ony heed, end equelly likely to end on eny track end eny 


SEQ 0026 | 


One thousend rendom seeks will be done over the renge 

of LEN track O thru LBN track 1641 to cover both surfeces of the 
selected unit. First time express bit in commend modifier field 
for READ_CMD will be set so thet random seeks ere timed end 

in the second time express bit will be reset so thet the 

rendom LON eveileble to the controller ere ordered by the 
controller for seeks. Averege time for both ceses will be reported. 
The expected time will be eround 32 ms for rendom LON seeks 

end 17 as for ordered LBN seeks. 


An error report for this test will report the number of seeks end 
desired track number. After reporting e failure, the deignostic will 
proceed to the next test unless retries is turned on. 


TEST @25 - FULL STROKE SEEK TIMING TEST 
This test brings RC25 controller end unit online. 


The full stroke seek time is the average time of 1000 full stroke 
seeks that do not involve heed switches. The average time will 
be reported end is expected eround 55 ms. 


This is @ single surface test. top surface will be used unless the 
operator chose otherwise. 


The error report will include number of seeks and desired track 
number. After failure, the test will be aborted unless retries 
ere turned on. 


TEST @26 - WRITE DATA TEST 


This test brings RC25 controller and selected unit online. 
then loeds dm code vector erray DM_26 to the controllers 


memory by issuing EX_SUP_PROG c . 


The dacode gets the unit number from the host end attempts 
to find eat least one good diagnostic block on each surface 
of the platter specified and make sure thet dmcode can read 
one write to = eek fe order te veri 1 one Se Seeds ore 
working properly. First top surface wi attempted wi 

ell ones dete and second ell zero dete. This will . 
repested for bottom surface es well. The dete written will be 
reed end compered. 


The error report on this test will include dete written, dete reed 
plus the treck, head end sector number. Also error stetus 

from the micro code if any will be reported. Crege stetus of 

zero will meen other errors trapped in dmcode. After reporting 
the error the rest of the test will be aborted unless the operator 
selects retries. 


sss, e-em 


— 
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SEQ 0027 





TEST @27 - OFFSET TOLEPANCE TEST 


This test bri y See controller end the unit online end loads 
DM progres DM, yoster orp’ into controller's memory for 
execution by lh X%_SuP commend 


The OM code will do an offeet tolerance test. @ good odd block will 
be found in track 829 (DBN track). It will be read with increasing 
* on - offset, until e hard error is forced. The offset value used 
in the last good read will be sent to host program. The host will 
give the meximum offset es ea percentage of track to track distance. 


This test wil’ be performed on top surface of the unit 
being tested. 


A message report on this test will include the largest offset velue 
used in order to read the block without forcing errors. 


TEST #28 - AVERAGE ROTATIONAL TIMING TEST 
This test will bring RC25 controller and the unit online. 


This test will be performed from the host using the MSCP “read” 
command. An LBN will be selected randomly. One thousand two 

byte count reads of the same LBN will be performed. This operation 

we = B yah oS “oe average time will be reported. The expected 
ime wi 


If the operetor has selected retries, the test will be repeated. 


TEST @29 - WRITE PROTECT TEST 


This test requires manual intervention. It will be executed if 
the softwere perameter questions do not cause it to be omitted. 


This test brings RC25 controller and the unit online first. 

The test is done from the host ueing, the mscp command “GET UNIT 
STATUS” ( ). The test will ask the operator to make sure the 
write protect switch for the unit is in the off position. It will 
do the A for the mt to verify thet the controller knows it is 
not write protected. Then the operator will be asked to put the 
write protect switch in the on position and a gus will be done to 
make sure the controiler recognizes that the unit is write protected. 


The error report for this test will contain the unit number, expected 
end ectual positons of the write protect switch. 
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7.0 MAINTENANCE HISTORY 
Modified By: Dete: Version: 


SSSSSSSSSSSHSSSSSSESSSSSSSSSSSSSESSSSSEHSSSSEEESESSSESESEEESEES 
JULY 83 CZRCF AO 


SING LAKSHMANAN 


SING LAKSHMANAN OCT 83 CZRCFBO 

SING LAKSHMANAN JAN 85 CZRCFCO 

MTT TTI TIT iiiiiiiiiiiiiiiiiiiililitiTTiiiiliiiiTTiTiT titi tit 
NOTE : 


CZRCFBO is ea release of — lete teste ane RC25 FR END TESTS, 
following the bese level release CZRCF 


CZRCFBO contains 29 tests. The first 12 tests are functionally 
the seme as CZRCFAO. All source modules to make up this diagnostics 
have been revised, appended to produce *CZRCFBO. 


CZRCFCO is modified version of CZRCFBO with the following corrections. 


source modules have indications with VER:C in comments revever 
needed. 


Patch Bl: Test 10 hangs with C15 microde in the controller. 


Patch B62: Time-out error for an indefinite pass of any one test. 
Test 14 is done only in first pass. corrected to run 
in ell passes. 


Patch B3: Test 4 error 7 time out occurs in orion 11/73 processors. 
Test 14 does not wait long enough to spindown completely. 30 sec. 
realtime timer included to avoid false spin up time reports. 

This problem was specific to Orion 11/73 processor only as of date. 


Test 26 contains e revised dm code. The test description will 
explain the test better now. 


SEQ 0028 
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ZRCFB1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:2 
11-Jan-1985 08:1 





SEQ 0029 
1:49 -VAX-11 Bliss-16 V4.0-579 "Page 1 
9:19  USER$1: (AZTEC. CZRCFCJZRCFC1.B16;1 (1) 


HEADER (sescii'CZRCF ', sescii'A’, wascii'0', 120, 0, PRIOO): 
ARGUMENTS ARE: NAME. REV,PATC aca TEST t Tine, typ 


; 0001 O MODULE ZRCFB1 vig SL ‘CZRCECO RC25 FR END TEST’ 

; 0002 0 IDENT v0O3.0', 

; 0003 0 ADORESSING. MODE’ (RELATIVE) 

; 0004 O d= 

; 0005 1 BEGIN 

; 0006 1 : 

; 0007 1 '<BLF /LOWERCASE_KEY> 

; 0008 1 ! 

3 0009 1 

; Zeer : library ‘AZTECO'; ! AZTEC LIBRARY 
3 

3 roar : require ‘BLSMAC.REQ'; ! DIAGNOSTIC SUPERVISOR LIBRARY 
3 4208 : “sbttl ‘PROGRAM HEADER AND TABLES’ 

3 : 

3 i : : DEFINE THE NUMBER OF TESTS IN THIS DIAGNOSTIC 

; — 

3 1506 1 psect 

3 1507 1 code = AASCODE; 

3 1508 1 ‘ 

3 1509 1 literal 

3 1510 1 DS$NBR_OF_TESTS = 29; 

s ia i 

3 iSi2 1 POINTER (ALL); 

3 1513 1 

H 1514 1 bee 

3 i515 1 ! THE PROGRAM HEADER IS THE INTERFACE BETWEEN 

PF t3i8 : : THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 

3 1518 1 

$ 1519 : 

3 1 : WHERE "TYPE" = 0 FOR SEQUEN NTIAL DIAGNOSTI =] 

$ 1522 1 $s FOR EXERCISER. THERE IS ALSO AN OPT TONAL CGH ARGUMENT 
8 1523 : + WHICH SPECIFIES THE PROCESSOR PRIORITY TO BE SET WHEN 


STARTING THE DIAGNOSTIC (DEFAULT IS 0). 








b> he be he hope pope 











ES 


CZRCFCO RC2S FR END TEST 27-Mar-1985 15 
DISPATCH TABLE 11-Jan-1985 08 


Ssbttl ‘DISPATCH TABLE’ 


SEQ 0030 


VAX-11 Bliss-16 V4.0-579 Page 2 
USER$1: (AZTEC. CZRCFCJZRCFC1.B16;1 (2) 





tee 
! THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
! IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH (DS$NBR_OF_TESTS); 
ERRTBL; 
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ZRCFB1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 ay 3 
vo3.0 DEFAULT HARDWARE P-TABLE 11-Jan-1985 08:19:19 USER$1: (AZTEC. CoRCECIERCFCI. B16;1 (3) 
Hy 1534 1 Ssbttl ‘DEFAULT HARDWARE P-TABLE’ 

BE 

H o¢ 

: 1537 1 ‘ THE DEFAULT HARDWARE P-TABLE bes by ee VALUES OF 

: 1538 1 ‘ THE TEST-DEVICE PARAMETERS. HE STRUCTURE OF THIS TABLE 

’ 1539 1 ! IS IDENTICAL TO THE STRUCTURE. OF THE HARDWARE P-TABLES, 

; ‘sat : AND IS USED AS A "TEMPLATE" FOR BUILDING THE P-TABLES. 

; !-- 

8 1542 1 

: 1543 1 BGNHW (DOFPTBL); 

: 1544 1 

: 1545 1 glob 

: 1546 1 P _IP_ADDRESS : word initial (#0'172150'), 

; 1547 1 VECTOR : word initial (#0'154'), 

; 1548 1 F “BR LEVEL : word initial (5), 

; 1549 1 UNIT_NUMBER : word initial (0); 

3 1550 1 

3 i551 1 ENDHW; 
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SEQ 00 
ZRCFR1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bi 579 —y 
VO3.0 SOFTWARE P-TABLE 11-Jan-1985 08:19:19  USER#1:(AZTEC. ~EzRee Caner Ca. B16;1 (4) 
; 1552 1 Ssbttl ‘SOFTWARE P-TABLE’ 
Ht 
: fee 
; 1555 1 ! THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
; 1556 1 ' PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
; 1557 1 ' SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
; 1558 1 ‘ AT RUN TIME. 
3 1559 1 ‘. 
3 1560 1 
; 1561 1 BGNSW (SFPTBL); 
: 1562 1 
s 1563 1 global 
; 1564 1 SWP_TOP : word initiel (YES) !USE TOP SURFACE FOR SINGLE SURFACE TESTS 
; 1565 3 SWP"LIMIT : word initial (NO), ‘LIMIT AREA TESTED 
; 1566 1 SWP-START : word initial (0), 'STARTING TRACK 
; 1567 1 SWP_END : word initial (820), ‘ENDING TRACK 
; 1568 1 SWP-RETRIES : word initial (0), ‘NUMBER OF SETRIES BEFORE DROPPING UNIT 
; 1569 1 SWP-CONTINUE : word initial (NO), 1D0 YOU NEED TO CONTINUE TESTING? 
; 1570 1 SWP"MANUAL : word initiel (NO), 1D0 MANUAL INTERVENTION TEST 
; 1571 i SWP-TRACE : word initial (YES); 'DO YOU NEED TRACE MODE? 
3 1 


ENDSW; 








be bebe pe ope pepe p po pepe 









SEQ 0033 
749 VAX-11 1 Phioe-16 ve Page 5 
19 USERST: AZTEC CoRCECIZRCFCI. B16;1 (5) 





RCFCO _RC25 FR _END TEST 27-Mar-1985 
BROTEC TION TABLE 11-Jan-1985 


Ssbttl ‘PROTECTION TABLE’ 


fee 
! THIS TABLE IS USED BY THE RUNTIME SERVICES 
! TO PROTECT THE LOAD MEDIA. 


BGNPROT (- ae * . 
!1ST ARG ore ger INTO P-TABLE FOR CSR ADDRESS 
!2ND ARG = OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
ESRD_ ARG e OFFSET INTO P-TABLE FOR DRIVE NUMBER 

. 


13 





ZRCFB1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bli 579 sey 
v03.0 GLOBAL DATA SECTION 11-Jan-1985 08:19:19 USER$1: (AZ TEC, TO ORCECIZRCFC1. B16;1 (6) 
; 1586 1 Ssbttl ‘GLOBAL DATA SECTION’ 

3 1587 1 

3 1588 1 tee 

3 i589 1 ' THE GLOBAL DATA SES TEON CONTAINS DATA THAT ARE USED 

; 1590 1 ' IN MORE THAN ONE TEST. 

3 1591 1 !-- 

; 1592 i 

; 1593 1 psect — 

: 1594 1 plit = Sod ices lobel), 

s ives & globel = $GL0B$ nowr ite, noexecute, global, concatenate), 

: 13s : own = sowns; 

; 

$ 1598 1 structure ! DEFINE ACCESS ALGORITHM 

3 1599 1 RC25 (0, P, S, E) = ' TO ALLOW FIELD REFERANCES 

8 1600 2 begin ‘ TO THE AZTEC 

3 1601 2 

: 1602 2 locel 

3 1603 2 RC_REG; 

3 1604 2 

:; 1605 2 RC_REG = .(RC25 + supvel*0)<0, Sbpval, 0>; 

: 1606 2 RC_REG 

3 1607 2 end 

3 1608 1 <P, S, E>; 

3 1609 1 

>; 1610 1 globel 

Fy 1611 1 RT : vector [WORD1_IN_RT_TAB, word), 'RUNTIME TABLE STORAGE 

: 1612 1 T_ TABLE : ref block [WORD1 NRT TAB, word) field (RT_FI ait ‘RUNTIME TABLE POINTER 
s 1613 1 LE : ref block 2_IN_ TAB, word reiete (AWP_FIELDS) 

> 1614 1 XMT"DATA_BUF : vector [256, word), NSMITTING DATA BUFFER 1 

8 1615 1 RCV_DATA_BUF : vector [256, word], : RECESVING DATA BUFFER 2 

3 1616 1 LK_ : word, ' LOC. TO RETURN CLOCK — 

H 1617 1 CLK_TYPE : word, ! TYPE OF CLOCK ON SY 

5 1618 1 K_CSR : word, § STORE CSR ADDRESS FoR CLOCK HERE 
s 1619 1 CLK_HERTZ : word, ! STORE CLOCK ya lt | 

s 1620 1 CLK START : word, § STORE CLOCK START VALUE 

5 1621 1 UNIT : word, ! UNIT UNDER TEST THIS PASS 

; 1622 1 LOG_UNIT : word, 

3 1623 1 OUT BOUND : a $ COMMAND COUNT 

; 1624 1 IN_BOUND : $ RECEIVE COUNT 

:; 1625 1 vEC_AD : byte Ome tile, ! VECTOR ADDRESS OF AZTEC 

3 1626 1 RC25_A ADOR : ref RC25 f ield (RC_REG) ! DEFINE REFERANCE TO AZTEC FIELDS 
; 1627 1 RC25 “DATA : block [2, word] field (RC_REG), 

F 1628 1 COM_AREA : blockvector (REC_ALLOCATE + SND_ sae « HOR_SIZ, 2, word], 

; 1629 1 HEAD_AREA : ref block (4, word) field (HOR-F 

; 1630 1 RECEIVE RING : ref blockvector cREC a OCATE. a Hn # kose F7eL8), 

; 1631 1 SEND.RING : ref blockvector [SND ALLOCATE, 2, word field (DSC_FIELD 

: 1632 1 REC_ENVELOPE : blockvector (REC_ ALLOCATE. RB_SIZE «+ 2, aore freld om FIELD), 
$ 1633 1 SND_ENVELOPE : blockvector [SND_ALLOCATE, SB_ -2175 2 field (ENV_FIELD), 
; 1634 1 BUF _DESCRPTR : word volatile, 7 BUFFER DESCRIPTOR AREA 

3 1635 1 CMD_REF : word volatile, ' COMMAND REFERENCE BUFFER 

. 26m 2 BYTE_COUNT : word voletile, ! BYTE COUNT BUFFER 

; 1637 1 TICKS : word initial (0) volatile, ! SOTRE THE NUMBERS OF CLOCK INTERRUPTED 
$ 1638 1 SECONDS : word initial (0) volatile, ! STORE SECONDS 

s 1639 1 MINUTES : word initial (0) volatile, ' STORE MINUTES 

3 1640 1 TIP ; word, : ‘STORAGE FOR NUMBER OF TEST IN PROGRESS 
3 1641 1 DATA1 : word volatile, ! AZTEC STEP 1 WRITE DATA 

3 1642 1 DATA2 : word volatile, ' AZTEC STEP 2 WRITE DATA 



















J3 





SEQ 0035 


ZRCFR1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss 579 age 
v03.0 GLOBAL DATA SECTION 11-Jen-1985 08:19:19 USERS1:CAZTEC- CzRcee IZRCFCA. B16;1 (6) 
; 1643 1 DATA3 : word voletile, ! AZTEC STEP 3 WRITE DATA 

3 1644 1 as : word volatile, ' AZTEC STEP 4 WRITE DATA 

3 1645 1 X : word wet hg (0) volatile, ' INTERUPT FLAG 

> 1646 1 ASCADR ¢ word voleti ! 

3 1647 1 END_LON : word nitial "(50901) volatile, ! ENDING LBN 

> 1648 1 P_MASK : byte voletile, 

; 1649 1 B MASK : byte volatile, 

: 1650 1 SW : word voletile, 

; 1651 1 ITCH2 : word voletile, | 

; 1652 1 RET UNET “FLAG : word volatile, 

3 1653 1 P1 : word volatile, 

; 1654 1 P2 : word volatile, 

3 1655 1 P3 : word volatile, 

3 1656 1 P4 : word voletile, 

3 1657 1 <i word volatile, 

3 1658 1 : word volatile, 

; 1659 1 rer STATUS : word voletile, ! SAVES VARIOUS Se STATUS 
: 1660 1 R_STATUS : word initial (0), § SAVES ERROR STATUS CODE 

; 1661 1 ERACEL TIMER : word voletile, ! INIT SEQUENCE INTERR 

: 1662 1 CMD SCOT : word voletile, ! COMMAND DESCRIPTOR SLOT 

s 1663 1 RES_SLOT : word volatile, ! RECEIVE DESCRIPTOR SLOT 

3 1664 1 LBN : word voletile, 

; 1665 1 LBN_ST : word volatile, § STARTING LOGICAL S.0cx r 

; 1666 1 LBN_ED : word volatile, ' ENDING LOGICAL BLOCK 

: 1667 1 LBN_SZ : word voletile, ! INCREMENTING LBN ST7E” 

; 1668 1 FREE_MEM_AD § STARTING FREE MEMORY ADDR 

>; 1669 1 MEM SIZE: word voletile, ! FR Y SIZE 

; 1670 1 : word voletile, ' LOW-BYTE FREE MEMORY ADDR. 

; 1671 1 H_EADD : word voletile, ' HIGH-BYTE race MEMORY ADDR. 
; 1672 1 BUF_LENGTH : word volatile, ! BUFFER LENGTH 

; 1673 1 CMOD : word initial (0), ! COMMAND MODIFIER. 

; 1674 1 NUM_RETRIES : word voletile, 

; 1675 1 RETRIES : word initial (FALSE), 

3 1676 1 FAL_CODE : word initiel (1), ! FAIL STATUS 

3 1677 1 DMC_TEST : word, 

>; 1678 1 BYT_CNT : word, 

; 1679 1 _REC : word, 

; 1680 1 DM_XMT : word, 

; 1681 1 S12_LBN : | initiel (31), ! SIZE OF LBN TO GET TO NEXT TRACK 
: 1682 1 OFFSET : word initial (0), ! USED TO GET TO BOTTOM SURFACE 
3 1683 1 PASSO : word, ' FLAG FOR FIRST PASS 

3 pte : TEMP : word volatile; 
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Ag RC2S5 FR END TEST 





KS 


27-Mar-1985 15:21:49 
11-Jan-1985 08:19:19 


VAX- 


OBAL TEXT SECTION USER 


Ssbttl ‘GLOBAL TEXT SECTION’ 


Yee 


! THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 


! MESSAGES, AND 
! MORE THAN ONE 


wat INFORMATION THAT ARE USED IN 


global bind 





RINGBASE = COM_AREA (REC_BASE), 
TIME = plit (P4, PS), 


, ee FRU'S 


: HARDWARE AND SOFTWARE QUESTIONS 


QST1 = uplit (sesciz'IP ADDRESS’), 

QST2 = uplit (sesciz’ VECTOR’), 

QST3 = uplit (sesciz'BR LEVE 

QST4 = uplit (sesciz’ PLATTER "abbaesst €S)’ 

QST6 = uplit (sesciz’USE TOP SURFACE FOR SiNGLE SURFACE TESTS’), 

QST7 = uplit (sesciz'DO YOU WISH TO LIMIT AREA TESTED IN TESTS iS-18'), 
QST8 = uplit (sesciz’ STARTING TRACK" ), 

QST9 = uplit (sesciz’ENDING TRACK’ ) 


QST10 = ‘elit (sesciz'DO YOU WISH 1. DO THE MANUAL INTERVENTION TEST?’ ), 

QS10_1 = uplit (sesciz'DO YOU WISH TRACE MODE?’ 

QS10_2 = wes, (sesciz'DO YOU WISH TO CONTINUE TESTING AFTER RETRIES?’), 
uplit (sesciz' NUMBER OF RETRIES FOR TEST IF ERROR OCCURED’), 

QST14 = uplit (sesciz' TURN OFF WRITE PROTECT SWITCH AND DO <CR>'), 

QST1S = uplit (sesciz' TURN ON WRITE PROTECT SWITCH AND DO <CR>'), 


THE FOLLOWING MESSAGES INCLUDE THE NAMES OF EACH ROUTINE, PLUS 
FORMAT STATEMENTS FOR PRINTING OUT OTHER INFORMATION. 


1 REGISTER EXISTENCE TES 

2 STEP 1 ae A POWERUP "DIAGNOSTICS' ), 
5 BM 1 THROUGH STEP 3 READ/WRITE TEST’), 
3 DIAGNOSTIC WRAP TEST’), 

4 oo AND BR LEVEL TEST’), 

6 P POLL_TEST'), 


DBM7 = uplit (sesciz' SNSATEST 
DBMB = uplit (sesciz’ sNSATEST 

M9 = uplit (sesciz’ SNSATEST 
uplit (sesciz' SNSATEST 
uplit (sesciz' ere 


T 10 NONEXISTENT MEMORY TEST’), 
(Sesciz'sNSATEST 11 BUS ADDRESSING/DATA TEST A‘), 
12 BUS ADDRESSING/DATA TEST B'), 
13 BLOCK TRANSFER TEST’ 


(seasciz' SNSATEST . 
14 SPIN UP HEAD LOAD SEQUENCE’), 


uplit (sesciz’' SNSATEST 


DBM1S = uplit (sesciz' sNSATEST 
= uplit (sesciz' sNSATEST 


Hc CzRCEC 2Rerca. B16;1 


= uplit (sasciz’ SNSNSNSATESTING UNITO:SD038A IP BEST STER: :8068A PLATTER@:SD3SN’ ), 


ae 


5S 


ZRCFRL CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 ony 9 
v03.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19  USER$1:[ AZTEC, CzRcre I2RCFCI. B16;1 (7) 
; 1743 1 DOM21 © uplit (seeciz' SNSATEST 15 SEQUENTIAL SEEK AND VERIFY’), 

; 1744 1 DBM22 = uplit (seeciz' sNSATEST ig SAWTOOTH SEEK AND VERIFY’ 

; 1745 1 DBMS = uplit (seeciz’ sNSATEST 7 CONVERGING/DIVERGING § SEEK AND VERIFY’), 

; 1746 1 DBM24 © uplit (seeciz' SNSATEST is — SEEK AND VERIFY’ 

; 177 1 OBM25 = uplit (seeciz'SNSATEST 19 HEAD SWITCH TEST’) 

: 1748 1 DBM26 © uplit (seeciz'SNSATEST 20 RANDOM SEEK an Rear. 

; 1749 } OBM27 = uplit (seeciz'SNBATEST 21 SECTOR ACCESS 

; 1750 1 DBM28 = uplit (sesciz'sNSATEST 22 CONTROLLER PROCESSING TIME’), 

; 1751 1 OBM29 = uplit (seeciz'SNSATEST 23 ONE TRACK SEEK ). 

: 1752 1 OBMSO = uplit (seeciz'SNSATEST 24 AVERAGE SEEK TIME"), 

; 1753 1 OBMS1 = uplit (Seeciz’sNSATEST 25 FULL STROKE SEEK TIME’), 

> 1754 1 DBM32 = uplit (seeciz'SNSATEST 26 WRITE DATA TEST’) 

; 1755 1 DBMS6 = uplit (seeciz’sNSATEST 27 OFFSET TOLERANCE fest’), 

; 1756 1 OBM37 = uplit (seeciz'SNSATEST 28 AVERAGE ROTATIONAL TIME’), 

3 1757 1 DBM38 = uplit (sesciz’sNSATEST 29 WRITE PROTECT TEST’), 

; 1738 : DBM39 = uplit (seeciz’sNsA MANUAL INTERVENTION TEST NOT PERFORMED: ), 

; b+ 

: 1760 i ! SYSTEM ERROR MESSAGES 

: 3 

3 1762 1 MSG_01 = uplit (sesciz' SNSAPOWER DELAY - WAITING’ ) 

3 1763 1 ERR_O1 = uplit (sesciz' SNSATOO MANY UNITS’), 

> 1764 1 ERR_O2 = uplit (sesciz’sNSANO CLOCK WAS FOUND IN THE SYSTEM’ y 

: 1765 i ERR_O3 = uplit (Sesciz’sNSAINCORRECT TRACK NUMBERS SELECTED’ ) 

3 . 

: 1767 1 ' FORMATTED ASCIC STRINGS 

: 1768 1 ‘ 

: 1769 1 FMTSC = jie (sesciz' SNSEN'), 

; 1770 } FMT1 = uplit (Seeciz’sNSA "REGISTER FAILED 10 RESPOND AT ADDRESS:  sO6SN’ ) 

3 1771 1 PATS 5 velit (seeciz' SNSAADDRESS: a0saA EXPECTED: sO68A RE -* 

; 1772 } FMTS = uplit (Sesciz’SNSASTEP MASK + 028A FAILING REGISTER = SO6SA DATA’= SO6SN’ ), 
: 1773 1 FMT4 = uplit (sesciz'SNsA | PORT TYPE NUMBER y 

; 177% 1 FMTS = uplit (sesciz'sNsA PORT SPECIFIC INFO: :/NV/QB/D1/00/MP/ = #02'), 

; «1775 iW FMT6 = uplit (sesciz'sNsA MICRO CODE: MODEL © SO2HA VERSION = #02‘), 

: 177% 1 FMT7 = it (sesciz‘' SNA _BUF : REC_BUF . ‘7 

; iw" = FMT7A = uplit (sesciz'sA § XMT-DATA: SO6SA REC_DATA: SO6mN' ), 

; 1778 1 FMT® = uplit (sesciz'sNsA UNIT COMES ONLINE IN : SO28A min. SD28A.SD2NA sec.'), 
; 1779 1 FMT9 = wplit (sesciz'sNSA STARTING TRACK: S048A_ ENDING TRACK: S048 DESIRED LBN: SO068N' ), 
; 1780 } FMT10 = uplit (Sesciz'SNSA UNIT: SO4SA HEAD: sO4sA TRACK: SO4SN' ), 

s 1781 1 FMT11 © uplit (sesciz'sNsA NUMBER OF SEEKS (0): SD6sA : S068N' ), 

; 1782 1 FMT12 © uplit (sesciz'sNSA MAX. OFFSET VALUE: SD28A.8D1SA percent’ ), 

; 1783 1 FMT13 = uplit (seeciz’ SNSA A ERROR STA SO6HN' ) 

; 1784 1 FMT14 = uplit (sesciz’sNsA END PACKET ERROR STATUS: sQ6=N’ ), 

3 1785 1 FMTIS = uplit (sesciz’sNsA UNEXPECTED LOG PACKET ERROR STATUS: SO6SN' ), 

; «1786 1 FMT16 = uplit (sesciz’SNSA WRITE DATA: s06mA READ DATA: #06'), 

; 1787 1 FMT17 = uplit (seeciz‘SNSA TRACK: SO48A SECTOR: sO48A HEAD. SO040N' ), 

; «1788 1 FMT18 = uplit (sesciz'sNSA EXPECTED SW = OFF ACTUAL SW = ON PLATTER © = #D3'), 
: 78S : aad Wy uplit (sesciz'sNSA EXPECTED SW = ON ACTUAL SW = OFF PLATTER @ = #03‘), 
H + 3 

; 1791 1 FMT20 = uplit (sesciz'sNSA ERROR STATUS: sO6SN' ) 

4 179¢ i FMTSA + uplit (sesciz'sNsA NUMBER OF RETRIES (BS *s04'), 

3 * 

; 1794 i $ INIT ERROR MESSAGES 

° 

; 17% 1 ASG. PUR = uplit (sesciz' WAIT _ POWER FAIL RECOVERY: , 

; 1797 1 MSG_1 * uplit (sesciz'RCSA FAILED 10 RESPOND’ ) 

> «1798 } MSG _ "2 + uplit (sesciz'RCIP FAILED 10 RESPOND: ) 

+ 1799 } M5G_7 = uplit (sesciz’ TEST PATTERN ECHOED IN dasa IS INCORRECT’), 


| iad 





—- 
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FR END TEST 27-Mer 
TEXT SECTION 11-Jen 


* uplit (seeciz' VECTOR AND BR 
uplit (sesciz' HOST DETECTED 
lit (sesciz'RING BUF Cote 


euro. 


it (seeciz' MEMORY BUFFER DOES ‘not CONTAIN EXPECTED DATA’), 
(eeciz'OM CODE RETURNED FAILURE CODE" ) 
#038A BR LEVEL 801°), 


t 

t 

t (seeciz' SNSA INTERRUPT at VEC= 

it CONTROLLER’ 

(Seeciz' sNaA BRL LEVEL RECEIVED/TYPED ig INCORRECT !°), 


zat 
S239 


: 


(Sesc i z'NO INTERRUPT FROM PORT / 


Aaga82 


ag 
~ 


t ; RE URE’ ) 
it (Bese iz'WtlTe PROTECT ae FAILURE’), 
ORWARD SEEK ERROR’ ), 


ALLL 
4 8 


( ANDOM SEEK ERROR: ) 
t (Seeciz'READ/WRITE TEST IN ERROR’), 
(Seeciz' OFFSET READ ERROR’ ) 

GUS_ERR = (seesc iz’ GET UNIT_ STATUS COMMAND FAILURE’), 
TL_ERR = uplit (sesciz' AVAILABLE COMMAND FAILURE’ ), 


sa2 


ESSING TI 38A.602' 
SK Tite ' wp it (Seeciz' SNSAONE TRACK SEEK TIME (me) * sD3KA 508" ) 
“ROT_TIME = uplit ema te SNSAAVERAGE ROTATIONAL TIME (ms) = S63nA. 562" ), 


az? -READY ERR = uplit (sesciz‘RC25 UNIT DOES NOT COME ONLINE’ ) 
EXE SUP_ERR = uplit (sese 12 EX SUP_PROG DUP COPPIAND FAILURE ‘- 
SND BTA ERR = uplit (sesciz' SEND DATA DUP COMMAND FAIL URE he 
ta af A_ERR = uplit (sesciz‘'REC_DATA DUP COMMAND FAILURE’ 
<BL > 


cee 


AVE_TIME © uplit (seeciz’SNSAAVERAGE SEEK TIME WITH RANDOM LEN (ms) = S038A.802'), 
O-TINE = uplit (Sesciz’SNSAAVERAGE SEEK TIME WITH hes LON (as) * s03sA.902: j, 


CFC I2RCFCL, 616;1 


SEQ 0038 





— 


oo IN a an tac aay 7 pea a es ee ee, 

NS 

SEQ 0039 

ZRCFAI CZRCFCO_RC2S FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 579 Pege 11 
vo3.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19  USERS1: (AZTEC CZRCFCIZRCFCI. B16;1 (8) 
: 1836 1 : 
: oat. ' : Self-detected fetel port/controller errors 
a 
; 1839 1 BFE_STRUCT = uplit ( 
: 1840 1 uplit (Seeciz’SNSASFTLERR- UNRECOGNIZABLE ERROR CODE’), 
; 1841 1 uplit (sesciz'sNSASFTLERR- ENVELOPE/PACKET READ (PARITY OR TIMEOUT)’ ) 
: 1842 1 uplit (seeciz'SNSASFTLERR- ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT)’ 5, 
; 1843 1 uplit (seeciz' SNSASFTLERR- CONTROLLER ROM AND RAM PARITY’), 
; 1644 1 uplit (Seeciz'SNSASFTLERR- CONTROLLER RAM PARITY’), 
; 18645 1 uplit (seeciz'SNSASFTLERR- CONTROLLER ROM PARITY’ ). 
: 1846 1 uplit (Seeciz'SNSASFTLERR- RING- READ (PARITY OR T THE QUT) ) 
; 1847 1 uplit (Seeciz'SNSASFTLERR- RING WRITE (PARITY OR TIMEOUT)’ 5, 
; 1848 1 uplit (Seeciz'SNSASFTLERR- INTERRUPT ' 
; 1849 1 uplit (Seeciz'sNSASFTLERR- HOST ACCESS TIMEOUT’ ), 
: 1850 1 uplit (seeciz'SNSASFTLERR- CREDIT LIMIT EXCEEDED’ ), 
; 1851 1 uplit (seeciz'SNSASFTLERR- BUS M RROR' ), 
: 1852 1 uplit (seeciz' SNSASFTLERR- 0 TAGNOSTIC. CONTROLLER FATAL ERROR’ ), 
; 1853 1 uplit (seeciz‘ SNSASFTLERR- INSTRUCTION LOOP. TIPE 
: 1854 1 uplit (Seeciz'SNSASFTLERR- INVALID COMMECTION IDENTIFIER’ ), 
; 1855 1 uplit (Seeciz'SNSASFTLERR- INTERRUPT WRITE’ ), 
; 1856 1 uplit (Seeciz'SNSASFTLERR- MAINTENANCE READ/URITE INVALID REGION IDENTIFIER: } 
; 1857 1 uplit (seeciz'SNSASFTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER’ ), 
; 1858 1 uplit (sesciz'SNSASFTLERR- CONTROLLER RAM ERROR (NON-PARITY)’ ), 
s 18659 1 erit Sesciz' SNSASFTLERR- INIT SEQUENCE ‘), 
: 1860 1 t (Sesciz’SNBASFTLERR- HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR’ ), 
; 1861 1 Ublit (aescis"SNBASFILERR. GE/POLL HARDWARE FAILURE ' 
; 1862 1 uplit (sesciz'sNSASFTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT)’ ) 
: 1863 1 ) : vector (23), 
3 1664 1 !.BLF /PAGE > 
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CZRCFCO_RC25 FR END TEST 
GLOBAL TEXT SECTION 

a 

: 


Error messege structure 
ENSG_S TRUCT = 
nai 


uplit (sSasciz' SNSA$ 
uplit (sesciz'sSNSASFTLERR- S 





B4 


27-Me 


Ean RESPONSE STATUS ERROR:#S' 


UPERVISOR see CALL A. 
TIMEOUT 


uplit (seeciz' sNSASFTLERR- BORT/CONTROLL ER 


velis (sesciz' SNSASFTLERR- UNK 
!<bl f/page> 


UNKNOWN RETURN STATUS CODE" 


r-1985 15 
11-Jan-1985 08 


AiLeD: , 
RROR’ ), 


)) : vector (4), 





579 
TEC. CORCFCIZRCFCL. B16;1 
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CZRCFCO RC25 FR END TEST 
GLOBAL TEXT SECTION 


t Self-detected fatel port/controller errors 


wiit ieee te MSASFICERA. 
uplit (sesciz' SNSASFTLERR- 


uplit (sesciz' SNSASFTLERR- INCONSIST 


uplit (sesciz' SNSASFTLERR- 
it (sesciz' sNSASFTLERR- 


Ee 
uplit (sesciz’' SNSASFTLERR- 
uplit (sesciz' sNSASFTLERR- 


uplit (sesciz' SNSASFTLERR- 
uplit (sesciz’ SNSASFTLERR- 


uplit (sesciz' sNSASFTLERR- 
uplit (sesciz’' sNSASFTLERR- 
uplit (sesciz' SNSASFTLERR- 
uplit (sesciz' SNSASFTLERR- 
uplit (sesciz' SNSASFTLERR- U 
uplit (sesciz' sNSASFTLERR- 


: 


!<blf/page> 








t ¢ 
VAX READ/WRITE ERROR =: INTERRUPT’ ), 
INC STENCY AT U. 









C4 


27-Mar-1985 15:21:49 
11-Jen-1985 08:19:19 


VAX-11 Bliss-16 V4.0-579 my 13 


USER$1: (AZTEC.CZRCFCJZRCFC1.616;1 910) 


INCONSISTENCY AT U. UBM: 3: 


- INCONSISTENCY AT SERVO EMIRY &E (PIP SET)'), 
SERV Y (ERR SET)’ ) 


BAD PACKET DE '). 

XPLAINED D ION (U..10S)'), 
DUP PACKET D-Q@ FAILED (XFC 34/35)'), 
INCONSISTENCY , 

INCONSISTENCY AT U.SEKO'), 


ILLEGAL OPCODE' ) 
AD ORIVE STATUS AT 6. DSTS'), 
ILLEGAL XFC EXECUTED 
D ED UP A ZERO ScB.DB' >” 


PICK 
INCONSISTENCY AT D IDLE L 
DM WORD COUNT ERROR ON HOST “ORW/sEND/RECV' ), 
AY FAULT CODE AT D.DFLT’), 


UP DI ), 
OWER UP DIAGNOSTICS FAILED’ ), 

ADAPTER | CARD FAILURE’ ), 

EC.TMR TIMED OUT’), 

U.SEND/U.RECV RING READ INCONSISTENCY ), 

UNKNOWN WAITRV REASON AT D.RVCT') 

D.ARCS DID NOT FIND CLOSEST UNDONE ZONE’), 


I 
U.HTST INIT DIAG OM AILED'), 
ET AND A .SPN NOT SET’), 


.SYDR FOUND SS.DER S 
MASTER wits ACLO ASSERTED’ 
vector [39 






D4 





SEQ _ 0042 





ZRCFRB1L CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-57 Page 14 
vo3.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCEC IZRCFCA B16;1 (11) 
3 1919 1 : 

: ieee } : Dup return status codes 

; 1922 1 épup_s TRUCT = mhit f 

; 1923 3 uplit (sasciz'sA S sN'), 

; 1924 1 uplit Cneec  S GATNUAL TD stOnnA NDOSN'), 

; 1925 1 uplit (sesciz'sANO REGION AVAILABLESN’ ), 

; 1926 1 uplit (sesciz' sANO 4 gp NTO 

; 1927 1 uplit (sesciz'sAPROGRAM NOT KNOWNSN’ ), 

; 1928 1 uplit (sasciz' sALOAD FAILURESN’ ), 

; 1929 1 uplit (sesciz' sASTANDALONESN’ ) 

; 1930 1 ) : vector (7), 

; 1931 1 !<blf/page> 
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CZRCFCO_RC2S FR END TEST 


GLOBAL TEX 


LINESN’ ), 
uplit (sesciz' SAUNT AVATLABLESN' ). 
uplit (sesciz'sAMEDIA FORMAT ER 
uplit (sesciz' SAWRITE PROTECTEDSN’ ), 
uplit (sesciz' sACOMPARE ERRORSN’ 
erit (sasciz'sADATA E 

lit (sesciz'sAHOST BUFFER 
vlit (sasciz' sACONTROLLER ERR 


SECTION 


' 
: MSCP return status codes 
Su ( 


SHscP_ STRUCT = 


uplit (sesciz'sADRIVE ER RORSN' 
uplit (sesciz' sAMESSAGE FROM AN’ INTERNAL DIAGNOSTICSN’ ) 
) : vector (13); 


end 

eludom 
132 122 
106 040 


RRORSN' 


OREN’ ), 


TITLE 
IDENT 
.PSECT 
LS$NAME:: . ASCII 
ASCII 
BYTE 
BYTE 
L$RE 
ASCII 
ASCII 
LS$UNIT:: .WORD 
L$TIML::.WORD 
L$HPCP: : .WORD 
L$SPCP:: .WORD 
L$HPTP:: .WORD 
L$SPTP::.WORD 
L$LADP:: .WORD 
L$STA:: .WORD 
$CO:: .WORD 
L$OTYP::.WORD 
L$APT:: .WORD 
L$DTP:: .WORD 
L$PRIO::.WORD 
LSENVI:: .WORD 
L$EXP1::.WORD 
LS$MREV 
BYTE 
BYTE 
LSEF:: - 
L$SPC:: .WORD 


access SS ERRORSN' ), 


ZRCFB1 CZR 
/V03.0/ 


Le. 


L$LAST 


$DISPATCH 


ooouw ooorocooorr 
~~ 


CFCO RC25 FR END TEST 


RO 
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CZRCFCO RC25 FR END TEST 
GLOBAL TEXT SECTION 


LSDEVP:: .WORD 

LS$REPP:: .WORD 

LS$EXP4:: .WORD 

LSEXPS:: .WORD 

L$AUT:: .WORD 

L$DUT:: .WORD 

L$LUN:: .WORD 

L$DESP:: .WORD 

L$LOAD:: .WORD 

LSETP:: .WORD 

L$ICP:: .WORD 

L$CCP:: .WORD 

L$ACP:: .WORD 

L$PRT:: .WORD 

L$TEST::.WORD 

LSOLY:: .WORD 

$HIME: : .WORD 

PCNT:: .WORD 
L$OISPATCH: : 

WORD 

WORD 

J WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

J WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

WORD 

- WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

. WORD 

ERRTYP: : .BLKW 

ERRNBR: : .BLKW 

ERRMSG: : .BLKW 

ERRBLK:: .BLKW 

L$HWLEN: : 


. WORD 
PIP. ADDRESS : 


P. VECTOR; + 








F4 


27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4 P 
11-Jan-1985 08:19:19 USER$1:; (AZTEC. CZRCECIZRCFCA, B16;1_ (12) 





$OVTYP 
$RPT 


<<L$NDHW-L $HWLEN>/2> 
-5630 


ZRCFB1 
v0O3.0 


000234 
000236 


000240 
000242 


000244 
000246 
000250 


000001 


177777 
177777 
177777 


CZRCFCO_RC25 FR END TEST 
GLOBAL TEXT SECTION 


. WORD 
P.BR.LEVEL:: 


«WOR 5 
P.UNIT.NUMBER: : 
WOR 0 


LS$NDHW: : .BLKW 
L$SWLEN:: 
SWP.TOP:: 

.WOR 
SWP.LIMIT:; 
SWP.START:: 
SWP.END:: 

SWP .RETRIES:: 
SWP . CONTINUE: : 
SWP .MANUAL : : 
SWP.TRACE:: 

. WORD 
LS$NDOSW: : .BLKW 
L$PROT::.WORD 

. WORD 

. WORD 

PSECT 

— WORD 
P,AAA: .WORD 

. WORD 
P.AAB: .ASCII 

ASCII 

ASCII 
ASCII 
ASCII 
ASCII 
ASCII 

ASCII 
P.AAC: .ASCII 

ASCII 

ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 

ASCII 
P,AAD: .ASCII 

ASCII 

ASCII 
ASCII 
ASCII 











G4 


27-Mar-1985 15:21:49 VAX-11 
11-Jan-1985 08:19:19 USER$1: 


SEQ 0045 
ea | 


Bliss- 
( 2) 


16 _V4.0-579 
AZTEC. CZRCFC JZRCFC1.B616;1 
154 


1 
<<L $NDSW-L$SWLEN>/2> 


$PLIT$, RO, D , GBL 
; Plit count word 








H4 


Q 0046 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 Pp 18 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCJZRCFC1.616;1 09 12) 
040 106 117 -ASCII / FO/ 
122 040 125 -ASCII /R U/ 
116 lll 124 -ASCII /NIT/ 
3 072 -ASCII / @:/ 
000 -ASCII <00> 
104 122 ili P.AAE: .ASCII /DRI/ 
1 105 040 -ASCII /VE / 
102 117 101 -ASCII /BOA/ 
122 1 0 -ASCII /RD / 
1 117 122 -ASCII /FOR/ 
040 125 116 -ASCII / UN/ 
ill 124 0 -ASCII /IT / 
072 -ASCII /@:/<00> 
115 105 103 P.AAF -ASCII /MEC/ 
110 101 116 -ASCII /HAN/ 
111 103 -ASCII /IC / 
123 105 124 -ASCII /SET/ 
106 117 -ASCII / FO/ 
122 040 125 -ASCII /R U/ 
116 ill 124 -ASCII /NIT/ 
072 -ASCII / @:/ 
ASCII <00><00> 
111 120 040 P.AAG: .ASCII /IP / 
101 104 104 -ASCII /ADD/ 
122 105 123 -ASCII /RES/ 
123 000 000 -ASCII /S/<00><00> 
126 105 103 P.AAH: .ASCII /VEC/ 
124 117 i22 -ASCII /TOR/ 
-ASCII <00><00> 
102 122 0 P.AAI: .ASCII /BR / 
114 105 126 -ASCII /LEV/ 
105 114 -ASCII /EL/<00> 
-ASCII <00> 
120 114 101 P.AAJ: .ASCII /PLA/ 
124 124 105 -ASCII /TTE/ 
122 040 101. -ASCII /R A/ 
1 1 122 -ASCII /DDR/ 
105 123 123 -ASCII /ESS/ 
133 105 123 -ASCII /({ES/ 
135 -ASCII /)/<00> 
125 123 105 P.AAK: .ASCII /USE/ 
124 117 -ASCII / TO/ 
120 123 -ASCII /P S/ 
125 122 -ASCII /URF/ 
101 103 105 -ASCII /ACE/ 
1 117 -ASCII / FO/ 
122 040 123 -ASCII /R S/ 
111 116 107 -ASCII /ING/ 
114 105 040 -ASCII /LE / 
123 125 122 -ASCII /SUR/ 
1 101 103 -ASCII /FAC/ 
105 124 -ASCII /E T/ 
105 123 124 -ASCII /EST/ 
123 000 000 -ASCII /S/<00><00> 
104 117 040 P.AAL: .ASCII /D0 / 
131 117 125 ASCII /YOU/ 


040 127 111 "ASCII / WI/ 








SEQ 0047 
VAX-11 dais 
USER$1: 


16_V4.0-579 
AZTEC.CZRCFC JZRCFC1.616;1 









J4 








SEQ 0048 

ZRCFB1 CZRCFCO_RC2S5 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 P 20 
v03.0 GLOBAL TEXT SECTION Hs 11-Jan-1985 08:19:19 - USER$1:(AZTEC.CZRCFCJZRCFC1.616;1 99 13) 
000623 124 111 116 -ASCII = /TIN/ 
000626 107 040 101 -ASCII /G_A/ 
000631 106 124 105 -ASCII /FTE/ 

122 0 122 -ASCII /R_R/ 
000637 105 124 122 «ASCII /ETR/ 

111 105 123 -ASCII /IES/ 
000645 077 000 -ASCII /2?/<00><00> 

116 125 115 P.AAR: .ASCII /NUM/ 
000653 102 105 l22 -ASCII /BER/ 

117 106 -ASCII / OF/ 

000661 122 105 -ASCII / RE/ 

124 122 111 -ASCII /TRI/ 
000667 105 123 040 ASCII /ES / 
000672 106 117 122 «ASCII /FOR/ 
000675 040 124 105 -ASCII / TE/ 
000700 123 124 040 ASCII /ST / 
000703 111 106 040 ASCII /IF / 
000706 105 122 122 -ASCII /ERR/ 
000711 117 122 040 -ASCII /OR / 
000714 117 103 103 -ASCII /0CC/ 
000717 125 122 105 -ASCII /URE/ 
000722 104 -ASCII /D/<00> 
000724 124 125 122 P.AAS: .ASCII /TUR/ 
000727 116 0 117 -ASCII /N 0/ 

106 106 0 -ASCII /FF / 
000735 127 122 111 -ASCII /WRI/ 
000740 124 105 040 -ASCII /TE / 
000743 1 122 117 -ASCII /PRO/ 
000746 124 105 103 ASCII /TEC/ 
00075: 124 0 123 ASCII /T S/ 

7 127 111 124 -ASCII /WIT/ 
000757 103 110 040 -ASCII /CH / 
000762 101 116 104 -ASCII /AND/ 
000765 1 117 -ASCII / DO/ 
000770 0 074 103 -ASCII / <C/ 
000773 122 076 ASCII /R>/<00> 
000776 124 125 122 P.AAT: .ASCII /TUR/ 
001001 116 0 117 -ASCII /N 0/ 

116 0 127 ASCII /N W/ 
001007 122 111 124 -ASCII /RIT/ 
001012 105 0 120 ASCII /E P/ 
001015 122 117 124 «ASCII /ROT/ 
001020 105 103 124 -ASCII /ECT/ 
001023 123 127 -ASCII / SW/ 

0 111 124 103 -ASCII /ITC/ 
1031 110 101 ASCII /H A/ 

0 116 104 040 -ASCII /ND / 
1037 1 117 040 -ASCII /00 / 
1042 074 103 122 -ASCII /<CR/ 
1045 076 000 ASC />/<00><00> 
1 045 116 045 P.AAU; .ASCII /sNs/ 
1053 116 116 . ASC /NSN/ 

0 5 101 124 -ASCII /#AT/ 
1061 105 123 124 -ASCII /EST/ 

111 116 107 -ASCII /ING/ 
01067 125 116 -ASCII /_UN/ 
1072 111 124 043 ASCII /IT#/ 





ee 
~ 





K4 


SEQ 0049 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 X-11 Bliss-16 V4.0-579 Pp 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USeRa:: (AZTEC. CZRCFCJZRCFC1.616;1 aattt) 
072 045 104 ASCII /:980/ 
063 045 101 ASCII /3sA/ 
040 0 ill ASCII / I/ 
1 137 122 ASCII /P_R/ 
105 107 111 ASCII /€6I/ 
123 124 105 ASCII /STE/ 
122 072 045 ASCII /R:98/ 
117 045 ASCII /068/ 
101 040 040 ASCII /A / 
1 114 101 ASCII /PLA/ 
124 24 105 ASCII /TTE/ 
122 g 072 sASCII /RO:/ 
104 063 -ASCII /803/ 
045 116 000 .ASCII /8N/<00> 
-ASCII <00> 
045 116 045 P.AAV: ASCII /sNS/ 
101 124 105 sASCII /ATE/ 
23 124 040 ASCII /ST / 
061 040 ASCII 41/7 
122 105 107 .ASCII /REG/ 
111 123 124 -ASCII /IST/ 
105 122 040 -ASCII /ER / 
105 1 111 -ASCII /EXI/ 
123 124 105 -ASCII /STE/ 
116 103 105 .ASCII /NCE/ 
124 105 -ASCII / TE/ 
123 124 000 .ASCII /ST/<00> 
116 045 P.AAW: .ASCII / 
101 124 105 -ASCII /ATE/ 
123 124 040 .ASCII /ST / 
040 060 ASCII /2/ 
123 124 105 -ASCII /STE/ 
120 040 1 -ASCII /P 1/ 
122 105 -ASCII / RE/ 
101 1 057 -ASCII /AD/<57> 
127 122 11) .ASCII 
124 105 040 .ASCII /TE / 
1 117 127 -ASCII /POW/ 
105 122 125 -ASCII /ERU/ 
120 1 -ASCII /P D/ 
111 101 107 eASCII /IAG/ 
116 117 123 .ASCII /NOS/ 
124 111 103 -ASCII /TIC/ 
123 -ASCII /S/<00> 
116 045 P.AAX: “ASCII /sNe/ 
101 124 105 -ASCII /ATE/ 
123 124 040 -ASCII /ST / 
040 ASCII / S/ 
123 124 105 .ASCII /STE/ 
120 1 -ASCII /P 1/ 
124 110 -ASCII / TH/ 
122 117 125 -ASCII /ROU/ 
107 110 -ASCII /GH / 
123 124 105 -ASCII /STE/ 
120 063 ASCII /P 3/ 
040 122 105 -ASCII / RE/ 
101 104 057 “ASCII = /AD/«<57> 








—_—— OC 


L4 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 ag yy 22 
GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1; (AZTEC. CZRCFC JZRCFC1.616;1 (12) 
12. lll -ASCII /WRI/ 
10 040 ASCII /TE / 
1 123 -ASCII /TES/ 
000 -ASCII /1/<00> 
116 045 P.AAY: ASCII /sNe/ 
124 105 ASCII /ATE/ 
124 040 -ASCII /ST / 
063 040 ASCII / 3 / 
111 101 -ASCII /OIA/ 
116 117 «ASCII /GNO/ 
124 111 eASCII /STI/ 
040 127 -ASCII /C W/ 
101 120 -ASCII /RAP/ 
124 105 ASCII / TE/ 
124 000 -ASCII /ST/<00> 
-ASCII. <00> 
116 045 P.AAZ: .ASCII /sNe/ 
124 105 -ASCII /ATE/ 
124 040 -ASCII /ST / 
04 -ASCII / 4 / 
105 10 -ASCII /VEC/ 
117 l22 -ASCII /TOR/ 
101 116 «ASCII / AN/ 
102 -ASCII /OD B/ 
040 114 ASCII /R LZ 
126 105 ASCII /EVE/ 
040 124 ASCII /L T/ 
123 124 ASCII /EST/ 
000 -ASCII <00><00> 
116 045 P.ABA: .ASCII /sNe/ 
124 105 ASCII /ATE/ 
124 040 -ASCII /ST / 
040 -ASCII / 6 / 
125 122 ASCII /PUR/ 
105 040 -ASCII /GE / 
116 104 -ASCII /AND/ 
1 117 -ASCII / PO/ 
114 040 eASCII /LL / 
1 123 -ASCII /TES/ 
000 -ASCII /1/<00> 
116 045 P.ABB: .ASCII /sNe/ 
124 105 -ASCII /ATE/ 
124 0 -ASCII /ST / 
067 0 ASCII 47 / 
115 101 -ASCII /SMA/ 
114 0 -ASCII ALL / 
111 116 -ASCII /RIN/ 
124 -ASCII /G T/ 
123 124 -ASCII /EST/ 
-ASCII <00> 
116 045 P.ABC: .ASCII /sNs/ 
124 105 ASCII /ATE/ 
124 040 -ASCII /ST / 
070 040 -ASCII / 8 / 
101 122 -ASCII /LAR/ 
105 040 -ASCII /GE / 
111 116 -ASCII /RIN/ 














eres Pape M4 


SEQ 0051 
CZRCFCO RC2S FR END TEST 27-Mar-1985 15:21:49 VAX-11 Blise-16 V4.0-579 P 3 
GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZTEC. CZRCFC JZRCFC1.616;1 0045) 
040 124 -ASCII * / 
123 124 -ASCII ST/ 
-ASCII <00> 
116 045 P.ABD: .ASCII /sNs/ 
124 105 ASCII /ATE/ 
124 040 -ASC™I /ST / 
071 040 ASC4I 7 97 
115 040 -ASCII /0M / 
117 104 «ASCII /COD/ 
040 117 ASCII /E _0/ 
1 122 -ASCII /VER/ 
101 131 -ASCII /LAY/ 
124 105 ASCII / TE/ 
124 -ASCII = /S1/<00> 
-ASCII <00> 
116 045 P.ABE: .ASCII /sNe/ 
124 105 ASCII /ATE/ 
124 040 ASCII /ST / 
060 040 -ASCII 410 / 
117 116 -ASCII = /NON/ 
130 111 eASCII /EXI/ 
124 105 -ASCII = /STE/ 
124 040 -ASCII /NT / 
105 115 -ASCII /MEM/ 
122 131 -ASCII /ORY/ 
124 105 -ASCII / TE/ 
124 000 -ASCII = /S1/<00> 
116 045 P.ABF: .ASCII /sNe/ 
124 105 -ASCII /ATE/ 
124 040 ASCII /ST / 
061 040 -ASCII 11 7 
1 123 -ASCII /BUS/ 
101 104 -ASCII 7 AD/ 
122 105 «ASCII /DRE/ 
123 111 -ASCII = /SSI/ 
107 057 ASCII = /NG/<57> 
101 124 -ASCII /DAT/ 
124 -ASCII /A 1/ 
123 124 -ASCII /EST/ 
101 000 ASCII / A/<00> 
-ASCII <00> 
116 045 P.ABG: .ASCII /sNe/ 
124 105 -ASCII /ATE/ 
124 040 -ASCII /ST / 
040 ASCII /12 / 
125 123 -ASCII /BUS/ 
101 104 -ASCII / AD/ 
122 105 -ASCII /DRE/ 
123 111 -ASCII = /SSI/ 
107 057 ASCII = /NG/<57> 
101 124 -ASCII = /DAT/ 

0 124 ASCII /A T/ 
123 124 -ASCII /EST/ 
102 ASCII / B/<00> 

ASCII <00> 
116 045 P.,ABH;: ASCII /sNe/ 
124 105 ASCII /ATE/ 














N4 


SEQ 0052 

CZRCFCO RC25 FR END TEST 27-Mer-1985 15:21:49 VAX-11 Bliee-16 V4.0-579 P 4 

GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZTEC .CZRCFC JZRCFC1.616;1 °0 15) 
123 124 040 -ASCII /ST / 
061 063 040 “ASCII /13 / 
1 114 117 -ASCII /6L0/ 
03 113 040 -ASCII /CK / 
124 l22 101 «ASCII = /TRA/ 
116 123 106 -ASCII = /NSF/ 
0s l22 0 -ASCII /ER / 
124 105 123 -ASCII /TES/ 

124 000 -ASCII = /1/<00> 

116 045 P.ABI: .ASCII /sNs/ 
101 124 105 -ASCII /ATE/ 
123 124 040 -ASCII /ST / 

1 064 040 ASCII 7/14 / 
123 120 111 -ASCII = /SPI/ 
116 040 125 -ASCII = /N U/ 
120 040 110 -ASCII /P H/ 
105 101 1 -ASCII /EAD/ 
040 114 117 -ASCII / LO/ 
101 104 040 -ASCII /AD / 
123 105 121 -ASCII /SEQ/ 
125 105 116 »ASCII /UEN/ 
103 105 -ASCII /CE/<00> 

-ASCII <00> 
116 045 P.ABJ: .ASCII /sNS/ 
101 124 105 ASCII /ATE/ 
123 124 040 -ASCII /ST / 

1 065 040 -ASCII 715 / 
123 105 121 -ASCII /SEQ/ 
125 105 116 -ASCII = /UEN/ 
124 111 101 eASCII = /TIA/ 
114 040 123 -ASCII /L_S/ 
105 195 113 -ASCII /EEK/ 
040 101 116 -ASCII / AN/ 
104 040 1 -ASCII /0 V/ 
105 122 111 -ASCII - /ERI/ 
106 131 eASCII /FY/<00> 

-ASCII <00> 

5 116 045 P.ABK: .ASCII /sNs/ 
101 124 105 eASCII /ATE/ 
123 124 040 -ASCII /ST / 
061 066 040 -ASCII 7/16 / 
123 101 127 -ASCII = /SAW/ 
124 117 117 -ASCII /100/ 
124 110 040 -ASCII /TH / 
123 105 105 -ASCII /SEE/ 
113 040 101 -ASCII /K A/ 
116 104 040 ASCII /ND / 
126 105 i22 -ASCII /VER/ 
111 106 131 -ASCII /IFY/ 
000 000 -ASCII <00><00> 
045 116 045 P.ABL: .ASCII /sNe/ 
101 124 105 -ASCII /ATE/ 
123 124 040 -ASCII /ST / 
061 067 040 -ASCII 7/17 # 
103 117 116 -ASCII /C 
126 105 122 -ASCII § /VER/ 
107 111 116 -ASCII /GIN/ 








CZRCFCO RC2S FR END TEST 
GLOBAL TEXT SECTION 


P.ABM: <A 


"A 
P.ABN: ASCH 


P.ABO: .ASCII 


P.ABP: ASCII 


P.ABQ: .ASCIT 







BS 


SEQ 0053 
27-Mar-1985 15:21:49 | VAX-11 Blive-16 v4.0-579 Page 25 
11-Jan-1985 08:19:19  USER#1:(AZTEC.CZRCFC)ZRCFC1.B16;1 (12) 


1G/<57>/D/ 
/IVE/ 





/RIF/ 
7Y¥/<00><00> 
/8N8/ 


/TES/ 
4T/<00><00> 
/9N8/ 









C5 





SEQ 00 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21 VAX- . on 26 
GLOBAL TEXT SECTION 11-Jen-1985 08:19: le oRCEC ITRCFCA B16;1 (12) 
123 124 040 -ASCII /ST / 
062 062 040 -ASCII /22 / 
103 117 116 -ASCII /CON/ 
24 122 117 -ASCII /TRO/ 
114 114 05 -ASCII /LLE/ 
122 040 120 -ASCII /R P/ 
122 117 103 -ASCII /ROC/ 
105 123 123 -ASCII /€SS/ 
ill 116 107 -ASCII /ING/ 
124 111 ASCII / TI/ 
115 105 .f “II /ME/<00> 
000 eASCII <00> 
045 116 045 P.ABR: .ASCII /sNS/ 
101 124 105 -ASCII /ATE/ 
123 124 -ASCII /ST / 
063 040 -ASCII /23 / 
117 116 105 -ASCII /ONE/ 
040 124 122 -ASCII / TR/ 
101 103 113 eASCII /ACK/ 
123 105 -ASCII / SE/ 
105 113 -ASCII /EK / 
124 111 115 -ASCII /TIM/ 
105 000 -ASCII /€/<00> 
045 116 045 P.ABS: .ASCII /sNs/ 
101 124 105 -ASCII /ATE/ 
123 124 -ASCII /ST / 
-ASCII /24 / 
101 126 105 -ASCII /AVE/ 
122 101 107 -ASCII /RAG/ 
105 123 -ASCII /E S/ 
105 105 113 -ASCII /EEK/ 
124 111 -ASCII / TI/ 
115 105 000 -ASCII /ME/<00> 
116 045 P.ABT: .ASCII /sNs/ 
101 124 105 -ASCII /ATE/ 
123 124 040 -ASCII /ST / 
06 040 -ASCII /25 / 
106 125 114 -ASCII /FUL/ 
114 123 -ASCII /L S/ 
124 122 117 -ASCII /TRO/ 
113 105 0 eASCII /KE / 
123 105 105 -ASCII /SEE/ 
113 040 124 -ASCII /K T/ 
111 115 105 -ASCII /IME/ 
000 .ASCII <00> 
045 116 045 P.ABU: .ASCII /sNs/ 
101 124 105 -ASCII /ATE/ 
123 124 040 -ASCII /ST / 
0 -ASCII /26 / 
127 122 111 -ASCII /WRI/ 
124 105 0 -ASCII /TE / 
104 101 124 -ASCII /DAT/ 
101 040 124 -ASCII /A T/ 
105 123 124 -ASCII /EST/ 
-ASCII <00> 
116 045 P.ABV: .ASCII /sNs/ 













D5 


SEQ_0055 
ZRCFB1 CZRCFCO _RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4,0-57 P 7 
vo3.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: [AZTEC CZRCFC JZRCFC1.B16;1 99°15) 








003036 123 124 040 -ASCII /ST / 
003041 062 067 040 -ASCII /27 / 
3044 117 1 106 -ASCII /OFF/ 
003047 123 0s 124 -ASCII /SET/ 
040 124 117 -ASCII / TO/ 
003055 114 105 122 -ASCII /LER/ 
3 101 116 103 -ASCII /ANC/ 
003063 105 124 -ASCII /E T/ 
105 123 124 -ASCII /EST/ 
003071 000 -ASCII <00> 
003072 045 116 045 P.ABW: .ASCII /sNs/ 
003075 101 124 105 -ASCII /ATE/ 
123 124 040 SCII /ST / 
003103 070 040 -ASCII /28 / 
003106 101 126 105 -ASCII /AVE/ 
003111 122 101 107 -ASCII /RAG/ 
003114 105 040 122 -ASCII /E R/ 
003117 117 124 101 -ASCII /OTA/ 
003122 124 111 117 -ASCII /TIO/ 
003125 116 01 114 -ASCII /NAL/ 
124 111 -ASCII / TI/ 
003133 115 105 -ASCII /ME/<00> 
5 116 045 P.ABX: .ASCII /sNs/ 
003141 101 124 105 -ASCII /ATE/ 
003144 123 124 040 -ASCII /ST / 
003147 071 040 -ASCII /29 / 
127 122 111 -ASCII /WRI/ 
003155 124 105 040 -ASCII /TE / 
003160 120 122 117 -ASCII /PRO/ 
003163 124 105 103 -ASCII /TEC/ 
124 0 124 -ASCII /T T/ 
003171 105 123 124 -ASCII /EST/ 
003174 000 -ASCII <00><00> 
003176 045 116 045 P.ABY: .ASCII /sNs/ 
101 011 115 eASCII /A/<11>/M/ 
003204 101 116 125 -ASCII /ANU/ 
101 114 040 eASCII /AL / 
003212 111 116 124 -ASCII /INT/ 
003215 105 122 126 -ASCII /ERV/ 
105 116 124 -ASCII /ENT/ 
903223 111 117 116 -ASCII /ION/ 
003226 124 105 -ASCII / TE/ 
003231 123 124 040 -ASCII /ST / 
2 116 117 124 -ASCII /NOT/ 
003237 120 105 -ASCII / PE/ 
3242 122 106 117 -ASCII /RFO/ 
3245 122 115 105 -ASCII /RME/ 
1 000 .ASC /0/<00> 
3252 116 045 P.ABZ: .ASCII /ssNs/ 
3255 101 120 117 . ASC /APO/ 
127 105 122 -ASCII /WER/ 
3263 040 104 105 -ASCII / DE/ 
114 101 131 -ASCII /LAY/ 
3271 040 055 040 ASCII -/ 
3274 127 101 111 ASCII /WAI/ 
3277 124 111 116 _  ,ASCII /TIN/ 
3302 107 000 eASCII /G/<00> 








te 








ZRCFR1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-57 vagy 28 
v03.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCJZRCFC1. 616;1 (12) 
003304 045 116 045 P.ACA: .ASCII /sNS/ 
003307 101 124 117 -ASCII /ATO/ 
003312 117 115 ASCII /0 M/ 
003315 101 16 131 ASCII /ANY/ 
0 125 116 ASCII / UN/ 
003323 111 124 123 ASCII /ITS/ 
000 -ASCII <00><00> 
116 045 P.ACB: .ASCII /sNs/ 
003333 101 116 117 -ASCII /ANO/ 
003336 103 114 ASCII 
003341 117 03 113 -ASCII /0CK/ 
3 040 127 101 -ASCII / WA/ 
003347 123 106 -ASCII /S F/ 
117 125 116 -ASCII /OUN/ 
003355 104 040 111 -ASCII /0 I/ 
3 116 124 -ASCII /N T/ 
003363 110 105 040 -ASCII / 
123 131 123 -ASCII /SYS/ 
003371 124 105 115 -ASCII /TEM/ 
003374 000 000 -ASCII <00><00> 
003376 045 116 045 P.ACC: .ASCII /#Ns/ 
003401 101 ill 116 -ASCII /AIN/ 
103 117 122 -ASCII /COR/ 
003407 122 105 103 -ASCII /REC/ 
003412 124 0 124 -ASCII /T Ty 
003415 122 101 103 -ASCII /RAC/ 
113 116 -ASCII /K N/ 
003423 125 115 102 -ASCII /UMB/ 
105 122 123 -ASCII /€+.S/ 
003431 123 105 -ASCII / SF/ 
114 105 103 -ASCII /LEC/ 
003437 124 195 104 -ASCII /TED/ 
003442 ASC <00><00> 
003444 045 116 045 P.ACD: .ASCII /sNs/ 
003447 116 000 000 -ASCII /N/<00><00> 
003452 045 116 045 P.ACE: .ASCII /sNs/ 
003455 101 011 040 -ASCII /A/<11>/ / 
003460 122 105 107 -ASCII /REG/ 
3463 111 123 124 -ASCII /IST/ 
105 122 040 -ASCII /ER / 
003471 1 101 111 -ASCII /FAI/ 
003474 114 105 104 -ASCII /LED/ 
3477 040 124 117 -ASCII / TO/ 
3502 122 105 -ASCII / RE/ 
3505 123 120 117 -ASCII /SPO/ 
3510 116 1 040 -ASCII /ND / 
3513 101 124 040 -ASCII /AT / 
3516 101 104 104 -ASCII /ADD/ 
3521 122 105 123 -ASCII /RES/ 
4 4 123 072 040 -ASCII /S: / 
3527 040 045 117 -ASCII / #0/ 
3532 045 116 .ASCII /69N/ 
3535 -ASCIZ <0Q0> 
536 045 116 045 P.ACF -ASCIZ /sNs/ 
3541 101 101 104 .ASC /AAD/ 
3 1 122 105 -ASCII /DRE/ 
3547 123 123 072 -ASCII /SS:/ 













F5 


SEQ _ 0057 
P 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-57 age 29 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCECIZRCFCA. 616;1 (12) 

040 045 117 -ASCII / #0/ 

045 101 ASCII sA/ 
O11 105 130 eASCII <11>/EX/ 
1 105 103 ASCII 
124 105 104 -ASCII /TED/ 
072 045 -ASCII /: #/ 
117 066 045 -ASCII /068/ 
101 011 122 eASCII /A/<11>/R/ 
105 101 104 -ASCII /EAD/ 
072 040 045 -ASCII /: #/ 
117 066 045 -ASCII /068/ 
116 000 000 -ASCII /N/<00><00> 
045 116 045 P.ACG: .ASCII /sNs/ 
101 123 124 -ASCII /AST/ 
105 120 040 -ASCII /EP / 
115 101 23 -ASCII /MAS/ 
113 075 -ASCII /K #/ 

045 117 -ASCII / #0/ 
062 045 101 ASCII 
011 106 101 eASCII <11>/FA/ 
111 114 111 -ASCII /ILI/ 
116 107 040 -ASCII /NG / 
122 105 107 -ASCII /REG/ 
ill 123 124 -ASCII /IST/ 
105 122 040 -ASCII /ER / 
075 045 -ASCII /= #/ 
117 045 -ASCII /068/ 
101 1 -ASCII /A D/ 
101 124 101 -ASCII /ATA/ 

075 -ASCII / = / 
045 117 -ASCII /#806/ 
045 116 000 -ASCII /#N/<00> 
045 116 045 P.ACH: .ASCII 
101 O11 040 eASCII /A/<11>/ / 
120 117 122 ASCII 
124 040 124 -ASCII /T T/ 
131 120 105 -ASCII /YPE/ 

116 125 -ASCII / NU/ 
115 102 105 -ASCII /MBE/ 
122 075 -ASCII /R =/ 
040 045 117 -ASCII / #0/ 
062 000 000 -ASCII /2/<00><00> 
045 116 045 P.ACI: .ASCII /sNs/ 
101 011 040 -ASCII /A/<11>/ / 
120 117 122 -ASCII /POR/ 
124 123 -ASCII /T S/ 
120 105 103 -ASCII /PEC/ 
111 106 111 -ASCII /IFI/ 
103 040 111 -ASCII /C I/ 
116 106 117 -ASCII /NFO/ 
072 057 116 eASCII /:/<57>/N/ 
126 057 121 -ASCII /V/<57>/Q/ 
102 057 104 -ASCII /8/<57>/0/ 
111 057 117 eASCII /1I/<57>/0/ 
104 057 115 -ASCII /0/<57>/M/ 
120 057 040 -ASCII /P/<57>/ / 


075 040 045 ASCII /= #/ 
















GS 





SEQ 0058 
CZRCFCO RC2S FR END TEST 27-Mar-1985 15:21:49  VAX-11 Bliss-1 p 30 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 | USER$1:( AZTEC. CORCECIZRCFCA. Bi6;1 0 (12) 

117 062 000 ASCII /02/<00> 
045 116 045 P.ACU: [ASCII /sNs/ 
101 011 040 “ASCII. /A/<11>/ / 
115 111 103 “ASCII /MIC/ 
122 117 040 “ASCII /RO / 
103 117 104 “ASCII /COD/ 
105 ©0722=—Ss(0a0 “ASCII /E: / 
115 117 104 “ASCII /MOD/ 
105 114 040 “ASCII /EL / 
075 040 23045 “ASCII /= #6/ 
117 045 “ASCII /028/ 
101 040 4 ©=- 040 “ASCII /A / 

1 105 “ASCII / VE/ 
122 123 111 “ASCII /RSI/ 
117 116 “ASCII /ON / 
075 045 ASCII /= / 
117 062 000 “ASCII /02/¢00> 

5 116 045 P.ACK: ASCII 
101 011 130 “ASCII /RLA2/X/ 
115 124 137 “ASCII 
102 125 106 "ASCII 7BUR/ 
072 045 “ASCIT 7: 7 
117 045 “ASCII 
101 011 122 ‘ASCII /RLAL>/R/ 
105 103 137 “ASCII 
102 125 106 "ASCIT | /BUFZ 
072 04002045 “ASCII /: #/ 
117 066 045 “ASCII /06%/ 
116 000 000 “ASCII /N/<00><00> 
045 101 011 P.ACL: ‘ASCII /#A/<11> 
30 115 124 [ASCII /XMT/ 

137 1 101 “ASCII /_DA/ 
124 101 072 “ASCII /TA:/ 
0400— (045 117 ASCII / #0/ 
066 045 101 —TASCII §«/6sA/ 
011 122 105 “ASCII <11>/RE/ 
103 137 104 “ASCII /C_D/ 
101 124 101 ASCII /ATA/ 
072 04002045 “ASCII /: %/ 
117 066 045 "ASCII /068/ 
116 000 000 ASCII /N/<00><00> 
045 116 (045 P.ACM: [ASCII /sNs/ 
101 011 125 ASCII /A/<11>/U/ 
116 111 124 “ASCII /NIT/ 

103 117 ASCII / CO/ 
115 105 123 ASCII /MES/ 

117 116 “ASCII / ON/ 
114 111 116 “ASCII /LIN/ 
105 111 “ASCII /E I/ 
116 040 072 “ASCII /N :/ 

045 104 ASCII / #D/ 
062 045 101 “ASCII /28A/ 

155 151 “ASCII / mi/ 
156 0 “ASCII Yn. / 
045 104 062 “ASCII /#D2/ 
045 101 056 “ASCII /#A./ 













H5 


ZRCFB1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 ay 31 
0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCIZRCFCA. B16;1 (12) 








004300 045 101 040 -ASCII /#A / 
004303 163 145 143 -ASCII /sec/ 
004306 056 000 A 4./<00> 
004310 045 116 045 P.ACN: .ASCII /sNS/ 
004313 101 O11 123 eASCII /A/<11>/5S/ 
004316 124 101 122 -ASCII /TAR/ 
124 111 116 -ASCII /TIN/ 
004324 107 040 124 -ASCII /G T/ 
004727 122 101 103 -ASCII /RAC/ 
004332 113 072 040 -ASCII /K: / 
004335 045 ii7 064 -ASCII /#04/ 
340 045 101 011 -ASCII /#A/<i1> 
004343 105 116 104 -ASCII /END/ 
iil 16 107 -ASCII /ING/ 
004351 0 124 122 -ASCII / TR/ 
3 101 103 113 -ASCII /ACK/ 
004357 072 045 -ASCII /: #/ 
117 045 ASCII 
01 011 104 ASCII /A/<11>/D/ 
004370 105 123 ill ASCII 
004373 122 105 104 ASCII /RED/ 
004376 114 102 ASCII / LB/ 
004401 116 072 040 ASCII /N: / 
5 117 066 ASCII /#06/ 
004407 045 116 SCII /#N/<00> 
004412 045 116 045 P.ACO ASCII /sNs/ 
004415 101 011 125 eASCII /A/<11>/U/ 
004420 116 111 124 -ASCII /NIT/ 

23 072 040 045 -ASCII /: #/ 

26 117 064 045 -ASCII /048/ 

31 101 011 110 eASCII /A/<11>/H/ 
004434 105 191 104 -ASCII /EAD/ 
004437 072 040 045 -ASCII /: #/ 
004442 117 064 045 -ASCII /048/ 
004445 101 011 124 -ASCII /A/<11>/T/ 
004450 122 101 103 -ASCII /RAC/ 
004453 - 113 072 040 -ASCII /K: / 
004456 045 117 064 -ASCII /#04/ 
004461 045 116 000 -ASCII /#N/<00> 
004464 045 116 045 P.ACP: .ASCII /sNs/ 
004467 101 011 116 eASCII /A/<11>/N/ 
004472 125 115 102 -ASCII /UMB/ 

s 105 122 040 -ASCII /ER / 
004500 117 1 040 -ASCII /OF / 
503 123 105 105 -ASCII /SEE/ 
113 123 040 eASCII /KS / 
il 104 051 -ASCII /(D)/ 
514 072 040 045 ASCII % 
517 1 5 ASCII 
522 101 011 114 eASCII /A/<11>/L/ 
525 102 116 072 ASCII 
040 5 117 -ASCII / #0/ 
533 045 116 -ASCII /6%N/ 
000 -ASCI <00><00> 
540 045 116 045 P.ACQ: .ASCII /sNs/ 
543 101 011 115 eASCII /A/<11>/M/ 
546 101 130 056 -ASCII /AX,/ 
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SEQ 0060 





ZRCFB1 CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:21:49  VAX-11 Bliss-1 Page 32 

v03.0 GLOBAL TEXT SECTION li-ven-1985 08:19:19 USERS1:CAZTEC-CZRCFCIZRCFCI. B16;1 (12) 
004551 040 117 106 ASCII /_OF/ 
5 106 23 s:105 “ASCII /FSE/ 
004557 «124 126 “ASCII /T V/ 
101 114125 “ASCII /ALU/ 

5 105 072 040 “ASCII /E: / 
004570 (4 104 = s(062 “ASCII «= /802/ 
004578 40 «045 i(asiéi‘dC(tés:té«éS “ASCII /#A./ 
004576 «=s«O4S (assiéiCti‘éiD “ASCII /#Di/ 

1 045 101 040 “ASCII /#A / 

160 145 162 “ASCII /per/ 
004607 «143 45 «156 “ASCII /cen/ 
004612 164 = (000 “ASCII /t/<00> 
004614 045 116 045 P.ACR: :ASCII 
004617 «:101.-—C'i«éSCsséid'22 “ASCII /A/<11>/R/ 
2 103 230 s«:101 “ASCII 
105 = «122 “ASCII / ER/ 
122. 117 ~~ 122 “ASCII /ROR/ 
33 123124 “ASCII / ST/ 
101 24 «125 “ASCII /ATU/ 
004641 123 072 040 “ASCII /S: / 
117 “ASCII /#06/ 
004647 045tié«éi1286 “ASCII /#N/<00> 
004652 116 P.ACS: ‘ASCII 
004655 -:101.-—'isi«éSCtts«i108 “ASCII /A/<11>/E/ 
116 104 “ASCII 
004663 120 101 103 “ASCII /PAC/ 
113 0 124 “ASCII /KET/ 
004671 105 122 “ASCII / ER/ 
004674 «= 122—t—i«<2.'s—its—éid22D “ASCII /ROR/ 
004677 123124 “ASCII / ST/ 
004702 «(«101.-—C'iéi22—tst«iDS “ASCII = /ATU/ 
004705 3=«:123.—'—i—i«éi2Ss(O “ASCII /S: / 
004710 117 “ASCII /#06/ 
004713 (045tiéi2G “ASCII /#N/<00> 
004716 «=—s«0SC (<aesiKtiCéKS P.ACT: ‘ASCII 
004721 101 O11 = 125 ASCII. /A/*2i2/U/ 
004728 116 105 130 “ASCII. 
004727 120 105 103 “ASCII /PEC/ 
004732 «124—St'i«<i20S:ti‘iéid “ASCII /TED/ 
004735 040 114 #8 117 “ASCII / LO/ 
7 107 040 = 120 “ASCII /G P/ 
004743 = 101 103-113 “ASCII /ACK/ 
105 = :124~—Ss«) “ASCII /ET / 
004751 105 122 ~»# 122 ASCII /ERR/ 
7 117. 122—Sts«é*O. “ASCII /OR / 
757 123i—«éi2Cs«édD “ASCII /STA/ 
7%2 128 125 123 “ASCII /TUS/ 
765 072 045 “ASCII /: %/ 
770 8117 = 066—iti«éS “ASCII /069/ 
773, «116 «= 000—S—(000 “ASCII /N/<002<00> 
77% 065 116 045 P.ACU: ‘ASCII /sNs/ 
S001 101 011 ~~ 127 "ASCII /A/<11>/W/ 
122 © il 124 “ASCII /RIT/ 
5007 «105. 'si«—“(i«i‘éi ASCII /E D/ 
12 103 124 ~=-:101 ASCII /ATA/ 
05015 072 040 045 ASCII /: %/ 
50200 «117 —fis«Ci‘«iS ASCII /06s/ 





J5 








CZRCFCO RC25 FR END TEST 27-Mer-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCIZRCFC1.616;1 (12) 





101 011 122 sASCII /A/<11>/R/ 
105 101 104 -ASCII /EAD/ 
104 101 -ASCII / DA/ 
124 101 072 SCII /TA:/ 
117 ASCII / #0/ 
066 CII /6/<00> 
045 116 045 P.ACV: .ASCII /sNS/ 
101 011 124 sASCII /A/<11>/T/ 
122 101 103 -ASCII /RAC/ 
113 072 040 -ASCII /K: / 
045 117 064 -ASCII /#804/ 

5 101 011 eASCII /#A/<11> 
123 105 103 -ASCII /SEC/ 
124 117 122 -ASCII /TOR/ 
072 040 045 -ASCII /: #/ 
117 064 045 -ASCII /048/ 
101 O11 110 eASCII /A/<11>/H/ 
105 101 104 -ASCII /EAD/ 
072 040 045 -ASCII /: #/ 
117 064 045 -ASCII /04%/ 
116 000 «ASCII /N/<00> 
045 116 045 P.ACW: .ASCII /sNs/ 
101 Oil 105 eASCII /A/<11>/E/ 
130 120 105 -ASCII /XPE/ 
103 24 105 -ASCII /CTE/ 

123 -ASCII /0 S/ 

127 040 075 -ASCII /W =/ 

117 106 -ASCII / OF/ 

0 040 -ASCII /F / 

101 03 124 eASCII /ACT/ 

125 101 114 -ASCII /UAL/ 

123 127 -ASCII / SW/ 

075 ASCII / 2 / 

117 116 040 -ASCII /ON / 

120 114 -ASCII / PL/ 

101 124 124 eASCII /ATT/ 

105 122 040 -ASCII /ER / 

075 -ASCII /@ =/ 

040 045 104 -ASCII / #D/ 

063 -ASCII /3/<00> 

045 116 045 P.ACX: .ASCII /sNs/ 
101 Oli 105 .ASC 4A/<11>/E/ 

130 120 105 -ASCII /XPE/ 

103 124 105 -ASCII /CTE/ 

1 040 123 -ASCII /D S/ 

127 040 075 -ASCII /W #/ 

117 116 -ASCII / ON/ 

040 040 101 -ASCII / A/S 

103 124 125 -ASCII /CTU/ 

101 114 040 -ASCII /AL / 

123 127 0 -ASCII /SW / 

075 040 117 -ASCII /= O/ 

106 1 040 -ASCII /FF / 

040 120 114 eASCII / PL/ 

101 124 is¢ -ASCII /ATT/ 





my K5 


ZRCFRI CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 nag Nay 
vo3.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZTEC. CZRCFC JZRCFC1.616;1 (12) 
040 045 104 -ASCII / #D/ 
063 000 SCII /3/<00> 
5 116 P.ACY: .ASCII /sNS/ 
101 011 105 eASCII /A/<11>/E/ 
122 122 117 -ASCII /RRO/ 
122 040 123 -ASCII /R S/ 
124 101 124 -ASCII /TAT/ 
125 123 072 -ASCII /US:/ 
040 045 117 -ASCII / #0/ 
045 116 -ASCII /6SN/ 
000 eASCII <00><00> 
045 116 045 P.ACZ: .ASCII /sNe/ 
101 011 040 eASCII /A/<11>/ / 
116 125 115 -ASCII /NUM/ 
102 105 122 -ASCII /BER/ 
040 117 106 -ASCII / OF/ 
040 122 105 -ASCII / RE/ 
124 122 111 -ASCII /TRI/ 
105 123 0 -ASCII /ES / 
oa 051 -ASCII /(0)/ 
040 075 04 -ASCII / #8/ 
104 -ASCII /04/<00> 
-ASCII <00> 
O11 127 101 P.ADA: .ASCII <11>/WA/ 
111 124 -ASCII /IT / 
137 0 120 -ASCII /_ Ps 
117 127 105 ASCII /OWE/ 
122 106 -ASCII /R F/ 
01 111 114 eASCII /AIL/ 
22 105 -ASCII / RE/ 
103 117 126 -ASCII /COV/ 
105 122 131 -ASCII /ERY/ 
000 -ASCII <00> 
122 103 123 P.ADB: .ASCII /RCS/ 
101 106 -ASCII /A F/ 
101 111 114 ASCII /AIL/ 
105 1 040 -ASCII /ED / 
124 117 040 -ASCII /T0 / 
122 105 123 -ASCII /RES/ 
120 117 116 -ASCII /PON/ 
104 000 000 -ASCII /D/<00><00> 
122 103 111 P.ADC: .ASCII /RCI/ 
120 0 106 -ASCII /P F/ 
101 111 114 eASCII /AIL/ 
105 1 040 -ASCII /ED / 
124 117 040 -ASCII /T0 / 
122 105 123 -ASCII /RES/ 
120 117 116 -ASCII /PON/ 
104 000 000 -ASCII /D/<00><00> 
124 105 123 P.ADD: .ASCII /TES/ 
124 040 120 -ASCII /T P/ 
101 124 124 ASCII /ATT/ 
105 122 116 ASCII /ERN/ 
105 103 ASCII / EC/ 
110 117 105 ASCII /HOE/ 
1 040 111 ASCII /0 I/ 
116 040 lee ASCII /N R/ 








c—- a RANTES = SC 
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ZRCFR) CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-57 a oy 35 
vo3.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZTEC. CZRCFC JZRCFC1.616;1 (12) 
103 123 101 -ASCII /CSA/ 
040 111 123 -ASCII / IS/ 
040 111 116 ASCII / IN/ 
103 117 122 ASCII /COR/ 
122 105 103 ASCII /REC/ 
124 000 ASCII /1/<00><00> 
126 105 103 P.ADE: .ASCII /VEC/ 
124 117 122 -ASCII /TOR/ 
040 101 116 -ASCII / AN/ 
104 040 1 -ASCII /D B/ 
122 040 114 ASCII /RL/ 
105 126 105 -ASCII /EVE/ 
114 040 124 -ASCII “AL T/ 
105 123 124 -ASCII /EST/ 
106 101 -ASCII / FA/ 
111 114 125 -ASCII /ILU/ 
122 105 «ASCII /RE/<00> 
-ASCII «00> 
110 117 123 P.ADF: .ASCII /HOS/ 
124 104 -ASCII /T O/ 
105 124 105 ASCII /ETE/ 
103 124 105 -ASCII /CTE/ 
1 124 -ASCII /D T/ 
111 115 105 «ASCII /IME/ 
117 125 -ASCII 7 OU/ 
124 040 105 -ASCII /T E/ 
122 122 117 -ASCII /RRO/ 
122 000 000 -ASCII /R/<00><00> 
122 111 116 P.ADG: .ASCII /RIN/ 
107 040 102 -ASCII /G B/ 
125 106 1 ASCII /UFF/ 
105 122 123 -ASCII /ERS/ 
116 117 -ASCII / NO/ 
124 103 ASCII /T Cv 
114 101 -ASCII /LEA/ 
122 105 104 -ASCII /RED/ 
102 131 -ASCII / BY/ 
040 124 110 -ASCII / TH/ 
105 120 -ASCII /E P/ 
117 122 124 -ASCII /ORT/ 
-ASCII <00><00> 
123 124 105 P.ADH: .ASCII /STE/ 
1 122 -ASCII /P R/ 
105 101 104 -ASCII /€AD/ 
104 101 -ASCII / DA/ 
124 101 040 ASCII /TA / 
1 117 105 ASCII /D0E/ 
123 040 116 ASCII /S N/ 
117 124 040 ASCII /0T / 
115 101 124 ASCII /MAT/ 
103 110 000 -ASCII /CH/<00> 
120 117 122 P.ADI: .ASCII /POR/ 
124 040 106 -ASCII /T F/ 
103 124 101 eASCII /ATA/ 
114 0 105 ASCII /“t E/ 
122 122 117 ASCII /RRO/ 
lee 000 ASCII /R/<00><00> 














- 
a SEQ 0064 
ZRCFRL CZRCFCO_RC2S FR_END TEST 27-Mer-1985 15:21:49 VAX-11 Blies-16 v4.0-579 Page 
v03.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19  USER$1:( AZTEC. CZRCFCJZRCFC1.B16;1 (12) 
106s P.ADJ: .ASCII /INI/ 
124 = 040128 “ASCII /1 S/ 
12a «105—s«120 “ASCII /TEP/ 
060 122 105 “ASCII / RE/ 
101 06 = 040 “ASCII /AD / 
105 = 122—t—s«*222 SASCII  /ERR/ 
117 = 122,—s(000 “ASCII /0R/<00> 
“ASCII «00> 
115-105, P.ADK: [ASCII /MEM/ 
1171221381 “ASCII /0RY/ 
060 102 8 §=6125 “ASCII / BU/ 
106 106 105 “ASCII /FFE/ 
122 040 = 104 “ASCII /® 0/ 
1317-10528 “ASCII /0ES/ 
060 08=— 116117 “ASCII /_NO/ 
124 ©6040-1083 “ASCII. /1 Cv 
117 Ne—séid' “ASCII /0NT/ 
101 811d) 6 “ASCII /AIN/ 
060 86105 =: 130 ‘ASCII 7 EX/ 
120 105 = s-103 TASCIT  /PEC/ 
124 105s«i108 “ASCII /TED/ 
060 8= 1108S: “ASCII 7 _DA/ 
124 = 101 "ASCII /TA/<00> 
000 “ASCII <00> 
108 = 11S. s(80 P.ADL: ASCII /0M / 
103 17?—s«108 “ASCII /COD/ 
105 = O40—séd'22 “ASCII /E_R/ 
105 = 128s: “ASCII /ETU/ 
122 «116105 “ASCII | /RNE/ 
106 0040s “ASCII /0 F/ 
101 01d s18 “ASCII /AIL/ 
125 122 105 “ASCII /URE/ 
060020108117 “ASCII 7 CO/ 
108 §=6105—Ss(000 “ASCII /0E/<00> 
065 = 1168S P.ADM: <ASCII /sNe/ 
101 040 060 ASCII /A 7 
040 8©=— 040 “ASCII 7s 
040 040 040 “ASCII 7s 
111 116s: “ASCII /INT/ 
105 8=6 122,—S—s«*22 “ASCII /ERR/ 
125 120 126 “ASCII /UPT/ 
0600 101,—t—i(ié«éiN “ASCII. 7 AT/ 
126 105 “ASCII /_VE/ 
103 075 s«K “ASCII /C*_/ 
5 117 = 063 “ASCII /803/ 
101 040 “ASCII /sA / 
102 = 1222—(080 ASCII /8R / 
114105126 ASCII /LEV/ 
105 = 14075 ASCII /EL*/ 
000020 04S 17 ASCII / #0/ 
061 ASCII /1/<00> 
1160 «117,40 P.ADN: ‘ASCII /NO / 
111-6128 ASCII /INT/ 
105 48=— 3122—St—=«*Wd 22 ASCII /ERR/ 
125 120 126 ASCII /UPT/ 
040 4106 ~=_ lee ASCII / FR/ 
11743500 ASCII 70M / 


—— 
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ZRCFAL CZRCFCO RC25 FR END TEST 27-Mer-1985 15:21:49  VAX-1] Bliee-16 v4.0-579 vy aay 37 
= - $ $ ba 198- . = 
roe 0 Gr OpAL TEXT SECTION 11-Jen-1965 08:19:19  USERS1:(AZTEC.CZRCFCJZRCFC1.616;1 (13) 
120 117 122 .ASCII  /POR/ 
124 040 057 “ASCII. /T /<57> 
040 103 117 “ASCII 7 CO/ 
116 124 122 “ASCII /NTR/ 
117 114 114 “ASCII /0LL/ 
105 122 000 "ASCII /ER/<00> 
116 045 P.ADO: [ASCII /sNe/ 
101 011 011 "ASCII /A/<1)><))> 
i 122 040 [ASCII /BR / 
114 105 126 “ASCII /LEV/ 
105 114 040 “ASCII /EL / 
122 105 103 [ASCII /REC/ 
105 ili 126 "ASCII /EIV/ 
105 104 057 "ASCII /€D/<57> 
124 131 120 [ASCII /TYP/ 
105 104 040 “ASCII ED / 
111 123 0 “ASCII /IS / 
11) 116 103 [ASCII = /INC/ 
117 122 122 [ASCII /ORR/ 
105 103 124 “ASCII /ECT/ 
040 041 "ASCII / $7¢00> 
“ASCII <00> 
122 103 P.ADP: ‘ASCII /RC2/ 
040 123 "ASCII /5 S/ 
105 105 113 "ASCII /EEK/ 
106 101 "ASCII = FA/ 
111 114 125 "ASCII. /ILU/ 
122 105 000 "ASCII /RE/<00> 
110 105 101 P.ADQ: ‘ASCII /HEA/ 
040 123 "ASCII. /0 S/ 
127 111 124 "ASCII /WIT/ 
103 110 040 ASCII /CH / 
106 101 111 ASCII /FAI/ 
114 125 122 ASCII /LUR/ 
105 000 "ASCII /E/<00> 
123 105 103 P.ADR: [ASCII /SEC/ 
124 117 122 "ASCII /TOR/ 
0 122 105 "ASCII / RE/ 
101 104 040 "ASCII. /AD / 
06 101 111 "ASCII /FAI/ 
114 125 122 "ASCII = /LUR/ 
105 000 "ASCII /E/<00> 
127 122 111 P.ADS: ‘ASCII /WRI/ 
124 105 040 “ASCII /TE / 
20 122 117 "ASCII /PRO/ 
124 105 103 ASCII /TEC/ 
124 040 124 ASCII /T T/ 
1 123 124 "ASCII /EST/ 
106 1%1 ASCII 7 FAS 
111 114 * 28 "ASCII «= /ILU/ 
122 105 600 “ASCII /RE/<00> 
000 “ASCII <00> 
106 117 122 P.ADT: ‘ASCII /FOR/ 
127 101 122 "ASCII /WAR/ 
104 040 123 “ASCII /0 S/ 
105 105 113 ASCII /EEK/ 
040 105 122 ASCII / ER/ 





CZRCFCO_RC2S FR END TEST 
GLOBAL TEXT SECTION 


117 


000 
105 
122 


122 


P.ADV: 


P.ADX: 


P.ADY: 


P.ADZ: 


P.AEA: 


P. AEB: 


27-Mar-1985 15:21:49 
11-Jan-1985 08:19:19 


B6 





VAX-11 Blise-16 V4.0-579 
USER$1: (AZTEC. CZRCFCIZRCFCA. 616;1 








C6 











ZRCFB1 gener. a S FR_ END TEST 27-Mer-1985 15:21:49 VAX-11 Blise-16 V4.0 P 
vo3.0 GLOBAL SECTION 11-Jan-1985 08:19:19 1: (AZTEC. Concer IZRCFCI. B16;1 (12) 
006771 10 101 126 -ASCII /AAV/ 
006774 10 122 101 -ASCII /ERA/ 
006777 107 105 040 -ASCII /GE / 
7 123 105 105 -ASCII /SEE/ 
007005 13 040 124 «ASCII /K T/ 
007010 111 115 105 -ASCII /IME/ 
007013 127 111 «ASCII / WI/ 
007016 124 110 040 -ASCII /TH / 
122 101 116 -ASCII /RAN/ 
104 117 115 -ASCII /00M/ 
007027 040 114 102 -ASCII / LB/ 
007032 116 0 050 -ASCII /N (/ 
007035 155 63 051 -ASCII /ms)/ 
0 075 040 -ASCII /# / 
007043 045 1 063 -ASCII /#803/ 
7 045 101 056 -ASCII /#A,/ 
007051 045 1 062 -ASCII /#02/ 
7: ASC <00><00> 
007056 5 116 045 P. AEC wASCII § /sNs/ 
007061 101 101 126 .ASC /AAV/ 
7 105 122 101 -ASCII /ERA/ 
007067 107 05 040 -ASCII /GE / 
007072 123 105 105 -ASCII /SEE/ 
007075 113 0 124 -ASCII /K T/ 
111 115 105 -ASCII /IME/ 
007103 127 111 «ASCII / WI/ 
007106 124 110 040 ASCII /TH / 
OO7111 117 122 104 ASCII /ORD/ 
007114 105 122 105 ASCII /ERE/ 
007117 1 040 114 ASCII /DL/ 
007122 102 116 040 ASCII /BN / 
007125 155 163 ASCII /(ms/ 
007130 051 040 075 ASCII /) */ 
007133 040 045 104 ASCII / #D/ 
007136 063 045 101 ASCII /3sA/ 
007141 056 045 104 ASCII /.#D/ 
007144 062 000 42/<00> 
007146 045 116 045 P.AED ASCII /sNs/ 
007151 101 120 122 /APR/ 
007154 117 103 105 ASCII /0CE/ 
007157 123 123 111 ASCII /SSI/ 
007162 116 107 040 ASCII 
007165 124 111 115 ASCII /TIM/ 
007170 105 050 ASCII /€E (/ 
7173 155 163 051 ASCII /ms)/ 
7176 040 075 040 ASCII /=#:/ 
7201 045 104 063 ASCII /#03/ 
045 101 056 /#A./ 
7207 045 104 062 ASCII /#D2/ 
7212 000 <00><00> 
7214 116 5 P. AEE ASCII /sNs/ 
7217 101 1i7 116 /AON/ 
7222 105 040 124 ASCII /E T/ 
7225 122 101 103 ASCII /RAC/ 
7230 113 040 123 ASCII /K S/ 
7233 105 105 113 -ASCII /EEK/ 
7236 040 124 111 -ASCII / TI/ 







D6 








SEQ 0068 

ZRCFB1 . €ZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 P 40 
vo3.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCJZRCFC1.616;1 09 12) 
007241 115 os 040 ASCII /ME / 

244 050 155 163 ASCII /(ms/ 
007247 051 0 075 ASCII /) #=/ 
007252 040 045 104 ASCII 
007255 063 045 101 -ASCII /398A/ 

7, 056 045 104 -ASCII /.8D/ 

007263 . ASC 42/<00><00> 
045 116 045 P.AEF: .ASCII /sNs/ 
007271 101 106 125 . ASC /AFU/ 
007274 114 114 0 eASCII /LL / 
007277 124 122 101 -ASCII /TRA/ 

7 103 113 040 eASCII /CK / 
007305 123 105 105 -ASCII /SEE/ 
007310 113 124 -ASCII /K T/ 
007313 ll 115 105 -ASCII /IME/ 
007316 050 155 -ASCII / (m/ 
007321 163 051 040 -ASCII /s) / 
007324 075 040 045 -ASCII /* #/ 
007327 104 063 045 -ASCII /038/ 

101 056 045 -ASCII /A.#/ 
007335 104 062 000 .ASC /02/<00> 
007340 045 116 045 P.AEG: .ASCII /sNs/ 
007343 101 101 126 . ASC /AAV/ 
007346 105 122 101 -ASCII /ERA/ 
007351 107 105 040 -ASCII /GE / 
007354 122 117 124 -ASCII /ROT/ 
007357 101 124 111 -ASCII /ATI/ 

7 117 116 101 -ASCII /ONA/ 
007365 114 0 124 -ASCII /L T/ 
007370 lili 115 105 -ASCII /IME/ 
007373 050 155 eASCII / (m/ 
007376 163 051 040 -ASCII /s)/ 
007401 075 040 045 -ASCII /= #/ 

7 104 063 045 -ASCII /D38/ 
007407 101 056 045 -ASCII /A.8/ 
007412 1 062 000 -ASCII /D2/<00> 
007415 .ASC <00> 
007416 122 103 062 P.AEH: .ASCII /RC2/ 
007421 040 125 .ASC /5 ‘U/ 
007424 116 111 124 -ASCII /NIT/ 
007427 104 117 -ASCII / DO/ 
007432 105 123 040 -ASCII /ES / 
007435 116 117 124 -ASCII /NOT/ 
007440 103 117 -ASCII / CO/ 
007443 115 105 040 «ASCII /ME / 

7. 117 116 114 -ASCII /ONL/ 
007451 111 116 105 -ASCII /INE/ 

4 000 .ASC <00><00> 
456 105 130 137 P.AEI: .ASCII /EX_/ 
007461 123 125 120 ASC /SUB/ 
137 120 122 -ASCII /_PR/ 

7467 117 107 040 -ASCII /0G / 

7472 104 125 120 -ASCII /DUP/ 

7475 040 103 117 -ASCII / CO/ 

115 115 101 -ASCII /MMA/ 

7503 116 1 040 -ASCII /ND / 

007506 1 101 111 ASCII /FAI/ 





CZRCFCO_RC2S FR END TEST 





/FAI/ 


ZEQU/ 
/7)/<00> 
/8N8/ 





4.0-579 
R C)ZRCFC1.B16;1 








CZRCFCO RC25 FR END TEST 
GLOBAL TEXT SECTION 








F6 


SEQ 0070 
27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0 Page 42 
11-Jan-1985 08:19:19 USER$1: (AZTEC. CORCECIZRCECL. B16;1 (12) 






7Y/<00><00> 
/8N8/ 
/ASF/ 


Se aan Sac as i ee SR eee 








CZRCFCO RC2S5 FR END TEST 
GLOBAL TEXT SECTION 





SEQ _007 
27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 Pose. 43 
11-Jan-1985 08:19:19 USER$1; (AZTEC. CORCECIZRCFCI. B16;1 (12) 





/AST/ 





H6 








SEQ vou 
ZRCFB1 CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4,0-57 7 44 
03.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CORCEC JZRCFCI. B16;1 09612) 
010501 111 115 111 -ASCII /IMI/ 
010504 124 040 105 -ASCII /T E/ 
010507 130 103 105 -ASCII /XCE/ 
010512 105 104 105 -ASCII /EDE/ 
010515 104 000 000 -ASCII = /0/<00><00> 
010520 045 116 045 P.AEX: .ASCII 
010523 101 044 106 «ASCII /AS$F/ 
124 114 105 ASCII /TLE/ 
010531 122 122 055 -ASCII = /RR-/ 
34 102 125 ASCII / BU/ 
010537 123 040 115 ASCII /S M/ 
101 123 124 -ASCII /AST/ 
010545 105 122 040 ASCII /ER / 
010550 105 122 122 -ASCII /ERR/ 
010553 117 122 000 -ASCII /0R/<00> 
010556 045 116 045 P.AEY: .ASCII /sNs/ 
010561 101 044 106 -ASCII /A$F/ 
124 114 105 -ASCII /TLE/ 
010567 122 122 0SS -ASCII /RR-/ 
010572 104 111 -ASCII / DI/ 
010575 101 107 116 -ASCII /AGN/ 
117 123 124 -ASCII /OST/ 
010603 111 103 040 ASCII /IC / 
010606 103 117 116 ASCII /CON/ 
010611 124 122 117 ASCII /TRO/ 
010614 114 114 105 ASCII /LLE/ 
010617 122 040 106 ASCII /R F/ 
010622 101 124 101 ASCII /ATA/ 
114 040 105 ASCII /t E/ 
010630 122 122 117 -ASCII /RRO/ 
010633 122 000 000 ASCII /R/<00><00> 
5 116 045 P.AEZ: .ASCII 
010641 101 106 -ASCII /A$F/ 
124 114 105 ASCII /TLE/ 
010647 122 122 055 -ASCII = /RR-/ 
111 116 - ASCII IN/ 
010655 123 124 122 -ASCII /STR/ 
10660 125 103 124 ASCII /UCT/ 
010663 111 117 116 -ASCII /ION/ 
114 117 ASCII / LO/ 
010671 117 120 040 -ASCII /OP / 
010674 124 111 115 ASCII /TIM/ 
010677 105 117 125 -ASCII /€0U/ 
010702 124 000 -ASCII /1T/<00> 
010704 045 116 045 P.AFA: .ASCII /sNs/ 
010707 101 044 106 -ASCII /A$F/ 
010712 124 114 105 -ASCII /TLE/ 
10715 122 122 055 -ASCII /RR-/ 
10720 111 116 -ASCII / IN/ 
10723 126 101 114 -ASCII /VAL/ 
10726 111 104 040 -ASCII 
10731 103 117 116 -ASCII /CON/ 
116 105 103 -ASCII /NEC/ 
10737 124 111 117 -ASCII /TIO/ 
10742 116 111 ASCII /N I/ 
10745 1 105 116 ASCII /DEN/ 
10750 124 111 106 ASCII /TIF/ 








16 


hy CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss- 





. 
16 V4.0-57 “ey 45 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19  USER$1:(AZTEC.CZRCFCJZRCFC1.B16;1 (12) 





010753 iil 105 122 -ASCII /IER/ 
010756 000 000 -ASCII <00><00> 
010760 045 116 045 P.AFB: .ASCII 
010763 101 044 106 -ASCII /A$F/ 
010766 124 114 105 -ASCII /TLE/ 
010771 122 22 055 -ASCII /RR-/ 
010774 lll 116 -ASCII / IN/ 
010777 124 105 122 -ASCII /TER/ 
122 125 120 -ASCII /RUP/ 
011005 124 040 127 -ASCII /T W/ 
011010 122 lll 124 -ASCII /RIT/ 
011013 105 000 -ASCII /€/<00><00> 
011016 116 045 P.AFC: .ASCII / 
101 106 -ASCII /A$F/ 
011024 124 114 105 -ASCII /TLE/ 
011027 122 22 055 «ASCII /RR-/ 
032 115 101 -ASCII / MA/ 
011035 ill 116 124 -ASCII /INT/ 
105 116 101 -ASCII /ENA/ 
011043 116 103 105 -ASCII /NCE/ 
011046 122 105 -ASCII / RE/ 
011051 101 104 057 -ASCII /AD/<5S7> 
127 122 lil -ASCII /WRI/ 
011057 124 105 040 -ASCII /TE / 
111i 116 126 -ASCII /INV/ 
011065 101 114 111 -ASCII /ALI/ 
011070 104 040 122 -ASCII /D R/ 
011073 105 107 111 -ASCII /€GI/ 
011076 117 116 040 -ASCII /ON / 
011101 111 104 105 -ASCII /IDE/ 
116 124 111 -ASCII /NTI/ 
011107 111 105 -ASCII /FIE/ 
011112 122 -ASCII /R/<00> 
011114 116 045 P.AFD: .ASCII /sNs/ 
011117 101 106 -ASCII /AS$F/ 
011122 124 114 105 -ASCII /TLE/ 
011125 122 122 055 -ASCII /RR-/ 
30 115 101 -ASCII / MA/ 
011133 111 116 124 eASCII /INT/ 
011136 i105 116 101 -ASCII /ENA/ 
011141 116 103 105 -ASCII /NCE/ 
011144 127 122 -ASCII / 
011147 111 124 105 «ASCII /ITE/ 
011152 114 117 -ASCII / LO/ 
011155 101 1 040 -ASCII /AD / 
124 117 040 -ASCII /T0O / 
011163 116 117 116 -ASCII /NON/ 
055 114 117 -ASCII /-LO/ 
11171 101 1 101 -ASCII /ADA/ 
11174 102 114 105 ASCII /BLE/ 
11177 103 117 ASCII / CO/ 
11202 116 124 122 ASCII /NTR/ 
11205 117 114 114 ASCII /OLL/ 
11210 105 122 000 ASCII /ER/<00> 
11213 000 <00> 
11214 045 116 045 P.AFE ASCII /sNs/ 
11217 101 106 /ASF/ 








J6 


SE 74 
ZRCFR1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-57 '. a 4 
vo3.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1:(AZTEC.CZRCFCJZRCFC1.616;1 (12) 
011222 124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
103 117 -ASCII / CO/ 
116 124 122 SCII /NTR/ 
117 114 114 ASCII /OLL/ 
105 122 040 -ASCII /ER / 
122 101 115 SCII /RAM/ 
105 122 ASCII / ER/ 
122 117 122 ASCII /ROR/ 
050 116 ASCII / (N/ 
117 116 055 »ASCII /ON-/ 
120 101 122 SCII /PAR/ 
111 124 131 -ASCII /ITY/ 
051 000 000 eASCII /)/<00><00> 
045 116 045 P.AFF: ASCII /sNs/ 
101 044 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 22 055 -ASCII /RR-/ 
ill 116 -ASCII / IN/ 
ill 1e4 040 -ASCII /IT / 
123 105 121 -ASCII /SEQ/ 
125 105 116 -ASCII /UEN/ 
103 105 -ASCII /CE / 
105 122 122 -ASCII /ERR/ 
117 122 «ASCII /OR/<00> 
000 -ASCII <00> 
045 116 045 P.AFG: .ASCII /sNs/ 
101 106 -ASCII /ASF/ 
124 114 05 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
110 111 -ASCII / HI/ 
107 110 0 -ASCII /GH / 
114 105 126 -ASCII /LEV/ 
105 114 eASCII /EL / 
120 122 117 -ASCII /PRO/ 
124 117 103 eASCII /TOC/ 
117 114 0 -ASCII /OL / 
111 116 103 eASCII /INC/ 
117 115 120 -ASCII /OMP/ 
101 124 111 -ASCII /ATI/ 
102 111 114 ,ASCII /BIL/ 
111 124 131 -ASCII /ITY/ 
105 122 -ASCII / ER/ 
122 117 122 «ASCII /ROR/ 
000 000 -ASCII <00><00> 
045 116 045 P.AFH; .ASCII /sNs/ 
101 106 -ASCII /ASF/ 
124 114 105 eASCII /TLE/ 
122 122 055 eASCII /RR-/ 
120 125 -ASCII / PU/ 
122 107 105 -ASCII /RGE/ 
057 120 117 -ASCII <57>/P0/ 
114 114 040 eASCII /LL / 
110 101 122 -ASCII /HAR/ 
1 127 101 -ASCII /ODWA/ 
122 105 040 ASCII /RE / 








K6 


SEQ 0075 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bli P 47 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZ tec: C2RCECIZRCFCI. B16;1 09°12) 

125 122 -ASCII /LUR/ 

040 000 -ASCII /E /<00> 
116 045 P.AFI: .ASCII /sNS/ 
044 106 -ASCII /ASF/ 
114 105 -ASCII /TLE/ 
122 055 -ASCII /RR-/ 
115 101 -ASCII / MA/ 
120 111 -ASCII /PPI/ 

107 040 -ASCII /NG 

105 107 -ASCII /REG/ 
123 124 -ASCII /IST/ 
122 040 -ASCII /ER / 
105 101 -ASCII /REA/ 
040 105 -ASCII /0 E/ 
122 17 -ASCII /RRO/ 
050 -ASCII /R (/ 
101 22 -ASCII /PAR/ 
124 131 eASCII /ITY/ 
117 122 -ASCII / OR/ 
124 lll -ASCII / TI/ 
105 117 -ASCII /MEO/ 
124 051 -ASCII /UT)/ 

-ASCII <00><00> 
P.AEL: .WORD P.AEM 
-WORD P.AEN 
-WORD P.AEO 
-WORD P.AEP 
-WORD P.AEQ 
-WORD P.AER 
-WORD P.AES 
-WORD P.AET 
.WORD P.AEU 
-WORD P.AEV 
-WORD P.AEW 
-WORD P.,AEX 
-WORD P.AEY 
-WORD P.,AEZ 
. WORD P.AFA 
-WORD -P.AFB 
-WORD P.AFC 
-WORD P.AFD 
-WORD P.AFE 
. WORD P AFF 
-WORD P.AFG 
.WORD P.AFH 
-WORD P.AFI 
116 045 P.AFK: . ASCII /sNs/ 
1 -ASCII /ASF/ 
114 105 -ASCII /TLE/ 
122 055 -ASCII /RR-/ 
122 105 -ASCII / RE/ 
120 117 ASCII /SPO/ 
23 105 -ASCII /NSE/ 
123 124 -ASCII / ST/ 








"pee See 3 diet 2S ele Rae > Poo EI Nr Rr reeds 


ZRCFAI CZRCFCO RC2S FR END TEST 27-Mar-1985 15:21:49  VAX-11 Blis 57 ag ge 
vo3.0 GLOBAL TEXT SECTION l1-Jen-1985 08:19:19 USERS: (AZTEC -CZRCFCIZRCFC1.816,1 439 


011715 122 072 045 -ASCII /R:98/ 
000 A 





wee ee oe 


M6 


SEQ 0077 
ZRCFRI CZRCFCO RC25 FR END TEST 27-Mer-1985 15:21:49 VAX-11 Blise-16 V4.0-579 e 49 
vo3.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZTEC. CZRCFC JZRCFC1.616;1 8 12) 
012157 057 127 122 -ASCII «57>/WR/ 
111 124 105 ASCII /ITE/ 
040 105 122 -ASCII / ER/ 
122 117 122 -ASCII /ROR/ 
040 117 116 -ASCII / ON/ 
040 111 116 -ASCII / IN/ 
124 105 l22 -ASCII /TER/ 
122 125 120 -ASCII /RUP/ 
124 000 000 ASCII /1/<00><00> 
045 116 045 P.AFQ: .ASCII /sNe/ 
101 O48 106 ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
040 lll 116 -ASCII 7 IN/ 
103 117 116 -ASCII /CON/ 
123 111 123 ASCII /SIS/ 
124 105 116 -ASCII /TEN/ 
103 131 040 ASCII /CY / 
101 124 040 eASCII /AT / 
125 056 102 -ASCII /U.B8/ 
106 111 114 ASCII /FIL/ 
000 000 -ASCII <00><00> 
045 116 045 P.AFR: ASCII /sNe/ 
101 648 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 oss -ASCII /RR-/ 
040 111 116 -ASCII / IN/ 
103 117 116 -ASCII /CON/ 
123 111 123 -ASCII /SIS/ 
124 105 116 -ASCII /TEN/ 
103 131 -ASCII /CY / 
101 124 040 -ASCII /AT / 
125 056 102 -ASCII /U.6/ 
115 124 131 -ASCII /MTY/ 
000 000 -ASCII <00><00> 
045 116 045 P.AFS: ASCII /sNs/ 
101 Ode 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
040 111 116 -ASCII / INV 
103 117 116 -ASCII /CON/ 
123 111 123 ASCII /SI1S/ 
124 105 116 -ASCII /TEN/ 
103 131 040 -ASCII /CY / 
101 124 040 -ASCII /AT / 
125 056 101 -ASCII /U.A/ 
114 117 103 -ASCII /LOC/ 
000 000 -ASCII <00><00> 
045 116 045 P.AFT;: ASCII /sNe/ 
101 044 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
l22 122 055 -ASCII /RR-/ 
040 111 116 -ASCII / IN/ 
103 117 116 -ASCII /CON/ 
123 111 123 -ASCII /SIS/ 
124 105 116 -ASCII /TEN/ 
103 131 ASCII /CY / 





kita 








f —— ee nnn nnn nee nnn nen < <ussisies ~ueseumicnseenuie—emumee ay 
SEQ 0078 
ZRCFRL CZRCFCO RC25 FR END TEST 27-Mer-1985 15:21:49 VAX-11 Bliss-16 V4.0-57 
vo3.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZTEC. CZRCFC JZRCFC1.616;1 malt t }; 
10) 124 040 ASCII /AT / 
123 105 122 ASCII /SER/ 
1 117 040 ASCII /vVO / 
105 116 124 ASCII /ENT/ 
l22 131 040 ASCII /RY / 
0 120 ill ASCII /(PI/ 
120 040 123 ASCII /P S/ 
105 124 051 ASCII /€T)/ 
000 ASCII <00> 
045 116 045 P.AFU: .ASCII /sNs/ 
101 O44 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
040 111 116 -ASCII / IN/ 
103 117 116 -ASCII /CON/ 
123 111 123 -ASCII /SIS/ 
124 105 116 -ASCII /TEN/ 
103 131 0 -ASCII /CY / 
101 124 0 -ASCII /AT / 
123 105 122 -ASCII /SER/ 
126 117 0 -ASCII /VO / 
105 116 124 -ASCII /ENT/ 
122 131 040 -ASCII /RY / 
050 105 122 -ASCII /(ER/ 
122 040 123 -ASCII /R S/ 
105 124 051 «ASCII /€T)/ 
-ASCII <00> 
045 116 045 P.AFV: .ASCII /sNs/ 
101 106 eASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 22 055 -ASCII /RR-/ 
111 116 -ASCII / IN/ 
103 117 116 . ASC /CON/ 
123 111 123 -ASCII /SIS/ 
124 105 116 -ASCII /TEN/ 
103 131 -ASCII /CY / 
101 124 -ASCII /AT / 
1 123 -ASCII /U.S/ 
105 116 1 -ASCII /END/ 
000 -ASCII <00><00> 
116 045 P.AFW: ASCII /sNs/ 
101 106 -ASCII /ASF/ 
124 114 105 «ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
040 111 116 -ASCII / IN/ 
103 117 116 -ASCII /C 
123 111 123 -ASCII /5IS/ 
124 105 116 -ASCII /TEN/ 
103 131 040 -ASCII /CY / 
101 124 040 CII /AT / 
1 056 122 ASCII /U.R/ 
105 103 126 ASCII /€CV/ 
000 »ASCII <00><00> 
116 045 P.AFX: ASCII /sNs/ 
101 044 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 








TEX 


FR END TEST 
SECTION 


P.AFY: 


PSY 

LLAS 

igialel 

Dd tk dt Od 
hed dt tt td 





B/ 


27-Mer-198 
11-Jen-198 






see. 0079 
49 VAX-11 Blies-16 579 Page 51 
19 USER$1: (AZTEC. CZRCEC J2RCFCA. 616;1 | (12) 


nn 
~ 
uw 


C7 





CZRCFCO RC25 FR END TEST 
GLOBAL TEXT SECTION 


124 04 
105 121 
105 125 
104 040 
124 040 
056 104 
116 105 
116 045 
106 
114 105 
122 055 
125 116 
130 120 
101 111 
105 104 
104 0SS 
122 117 
123 
123 120 
116 123 
117 116 
050 1 
056 124 
123 051 
116 045 
106 
114 105 
122 055 
104 125 
040 120 
103 113 
124 040 
055 121 
106 101 
114 105 
040 050 
106 103 
063 064 
063 065 
000 000 
116 045 
106 
114 105 
122 055 
111 116 
117 116 
111 123 
105 116 
131 040 
124 040 
056 110 
123 124 
116 045 
044 106 


P.AGC: 


27-Mar-1985 15:21:49 
11-Jan-1985 08:19:19 


/ 34/ 
<57>/35/ 
/)/<00><00> 
/$N8/ 





VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCFC JZRCFC1.616;1 





D7 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 6 53 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCEC IZRCFCA, B16;1 (12) 
124 114 105 -ASCII /TLE/ 
122 122 055 ASCII -/ 
lll 116 -ASCII / IN/ 
103 117 116 -ASCII /CON/ 
123 ill 123 -ASCII /SIS/ 
124 105 116 -ASCII /TEN/ 
103 131 0 -ASCII /CY / 
101 124 040 -ASCII /AT / 
125 123 -ASCII /U.S/ 
05 113 117 -ASCII /EKO/ 
-ASCII <00><00> 
045 116 045 P.AGG: .ASCII /sNs/ 
101 106 -ASCII /A$F/ 
124 114 105 -ASCII /TLE/ 
122 122 oss -ASCII /RR-/ 
111 116 -ASCII / IN/ 
103 117 116 -ASCII /CON/ 
123 111 123 -ASCII /SIS/ 
124 105 116 -ASCII /TEN/ 
103 131 0 -ASCII /CY / 
101 124 0 -ASCII /AT / 
125 056 103 -ASCII /U.C/ 
113 123 126 -ASCII /KSV/ 
-ASCII <00><00> 
116 045 P.AGH: .ASCII /sNs/ 
101 106 -ASCII /ASF/ 
124 114 0s -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
1 56 -ASCII / D./ 
117 120 103 -ASCII /OPC/ 
104 1 -ASCII /D F/ 
117 125 116 -ASCII /OUN/ 
1 ill -ASCII /D I/ 
114 114 105 -ASCII /LLE/ 
107 101 114 -ASCII /GAL/ 
040 117 120 -ASCII / OP/ 
103 117 104 -ASCII /COD 
105 000 000 -ASCII /€/<00><00> 
045 116 045 P.AGI: .ASCII /sNs 
101 106 -ASCII /A$F/ 
124 114 105 -ASCII /TLE/ 
122 122 oss -ASCII /RR-/ 
i 056 ASCII 0./ 
103 123 106 -ASCII /CSF/ 
1 117 -ASCII / FO/ 
125 116 104 eASCII /UND/ 
111 114 -ASCII / IL/ 
114 105 107 -ASCTI /LEG/ 
101 114 040 -ASCLI /AL / 
117 120 103 -ASCII /OPC/ 
117 104 105 -ASCII /ODE/ 
-ASCII <00> 
116 045 P.AGJ: .ASCII /sNs/ 
101 044 106 -ASCII /A$F/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 








E/ 


ZRCFBI CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49  VAX-11 Blise-16 V4.0-57 hase 
v03.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19  USER#1:(AZTEC.CZRCFCJZRCFC1.61651 (12) 












F7 





SEQ _ 0083 
CZRCFCO RC2S FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4,0-57 Ss 
GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFC JZRCFC1.616;1 99 (13) 





040 104 115 -ASCII / DOM/ 
127 117 -ASCII / WO/ 
122 104 040 -ASCII /RD / 
103 117 125 -ASCII /COU/ 
16 124 0 -ASCII /NT / 
105 122 122 -ASCII /ERR/ 
117 122 040 -ASCII /OR / 
117 116 0 -ASCII /ON / 
110 117 123 -ASCII /HOS/ 
124 040 104 -ASCII /T D/ 
115 101 057 -ASCII /MA/<57> 
123 105 116 -ASCII /SEN/ 
104 057 122 -ASCII /0/<57>/R/ 
105 103 126 -ASCII /ECV/ 
000 000 -ASCII <00><00> 
045 116 045 P.AGO: .ASCII /sNs/ 
01 044 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
125 116 -ASCII / UN/ 
113 16 17 -ASCII /KNO/ 
127 116 -ASCII /WN / 
104 ll 123 -ASCII /DIS/ 
120 114 101 -ASCII /PLA/ 
131 1 -ASCII /Y F/ 
101 125 114 -ASCII /AUL/ 
124 103 -ASCII /T C/ 
117 104 105 -ASCII /ODE/ 
040 101 124 -ASCII / AT/ 
040 1 056 -ASCII / D./ 
04 106 114 -ASCII /DFL/ 
124 ASC /17/<00> 
045 116 045 P.AGP: .ASCII /sNs/ 
101 106 .ASC /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
1 122 -ASCII / DR/ 
111 126 105 -ASCII /IVE/ 
116 117 -ASCII / NO/ 
124 106 -ASCII /T F/ 
101 125 114 eASCII /AUL/ 
124 111 116 -ASCII /TIN/ 
107 040 111 -ASCII /G I/ 
116 040 120 -ASCII /N P/ 
117 106 -ASCII /.0F/ 
114 116 0 -ASCII /LN / 
123 124 101 -ASCII /STA/ 
124 105 -ASCII /TE/<00> 
045 116 045 P.AGQ: .ASCII /sNs/ 
101 044 106 -ASCII /ASF/ 
124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
125 0 -ASCII /U/ 
120 117 127 -ASCII /POW/ 
105 122 040 -ASCII /ER / 
125 120 040 ASCII /UP / 





G/ 





SEQ 0084 


ZRCFB1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 X-11 Bliss-16 P 56 
vo3.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USERS: {AZ TEC. cance e 2ReFCI. B16;1 09°13) 
014377 107 116 117 ASCII 
123 124 ill -ASCII /STI/ 
014405 103 123 040 -ASCII /CS / 
014410 106 101 111 ASCII /FAI/ 
014413 114 105 104 ASCII /LED/ 
014416 000 -ASCII <00><00> 
0 045 116 045 P.AGR: .ASCII /sNS/ 
014423 101 1 -ASCII /A$F/ 
124 114 105 -ASCII /TLE/ 
014431 122 122 055 -ASCII /RR-/ 
014434 104 040 ASCII 0 
014437 120 117 127 -ASCII /POW/ 
05 122 040 -ASCII /ER / 
014445 125 120 040 -ASCII /UP / 
014450 ill 101 -ASCII /DIA/ 
014453 107 116 117 -ASCII /GNO/ 
014456 123 124 111 -ASCII /STI/ 
014461 03 123 040 «ASCII /CS / 
101 111 -ASCII /FAI/ 
014467 114 105 104 -ASCII /LED/ 
014472 000 «ASCII <00><00> 
014474 045 116 045 P.AGS: .ASCII /sNs/ 
014477 101 106 -ASCII /A$F/ 
014502 124 114 105 -ASCII /TLE/ 
014505 122 122 055 -ASCII /RR-/ 
014510 101 104 -ASCII / AD/ 
014513 101 120 124 -ASCII /APT/ 
014516 105 122 040 -ASCII /ER / 
103 101 122 -ASCII /CAR/ 
014524 1 040 1 -ASCII /D F/ 
14527 101 111 114 -ASCII /AIL/ 
014532 125 122 105 -ASCII /URE/ 
014535 000 .ASC <00> 
014536 045 116 045 P.AGT: .ASCII /sNs/ 
014541 101 106 -ASCII /ASF/ 
014544 124 114 105 -ASCII /TLE/ 
014547 122 122 055 -ASCII /RR-/ 
014552 105 103 -ASCII / EC/ 
014555 124 115 -ASCII /.1TM/ 
014560 122 124 -ASCII /R T/ 
014563 111 115 105 -ASCII /IME/ 
1 040 117 ASCII 
014571 125 124 000 .ASC /UT/<00> 
014574 045 116 045 P.AGU: .ASCII 
014577 101 106 ASC /ASF/ 
14602 124 114 105 -ASCII /TLE/ 
122 122 055 -ASCII /RR-/ 
14610 125 056 -ASCII / U./ 
14613 123 105 116 ASCII 
14616 1 057 125 -ASCII /D/<57>/U/ 
14621 122 105 ASCII 
14624 103 126 040 ASCII /CV / 
14627 122 111 116 ASCII /RIN/ 
14632 107 040 122 -ASCII /G R/ 
14635 105 101 104 -ASCII /EAD/ 
0 111 116 -ASCII / IN/ 
14643 103 117 116 -ASCII /CON/ 













H7 








SEQ 0085 
ZRCFB1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 P 57 
vo3.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC.CZRCFCJZRCFC1.616;1 09° 13) 
014646 123 1li 123 ASCII /SIS/ 
014651 124 105 116 ASCII /TEN/ 
14654 103 131 -ASCII /CY/<00> 
014657 SCII <00> 
014660 045 116 045 P.AGV ASCII / 
014663 101 044 106 /ASFE/ 
0 124 114 105 ASCII /TLE/ 
014671 122 122 055 ASCII /RR-/ 
014674 125 116 ASCII / UN/ 
014677 113 116 117 ASCII /KNO/ 
014702 127 116 040 ASCII /WN / 
014705 127 101 111 ASCII /WAI/ 
014710 124 122 126 ASCII /TRV/ 
014713 040 122 105 -ASCII / RE/ 
14716 101 123 117 II /ASO/ 
014721 116 040 101 ASCII /N A/ 
014724 124 040 104 ASCII /T D/ 
014727 122 126 -ASCII /.RV/ 
4732 103 124 000 -ASCII /CT/<00> 
014735 -ASCII <00> 
014736 045 116 045 P.AGW: .ASCII /sNs/ 
014741 101 4 106 -ASCII /ASF/ 
014744 124 114 105 -ASCII /TLE/ 
014747 122 122 055 -ASCII /RR-/ 
014752 104 056 ASCII 0 
014755 101 122 103 -ASCII /ARC/ 
014760 123 040 104 -ASCII /S D/ 
014763 111 104 040 -ASCII /ID / 
014766 116 117 124 -ASCII /NOT/ 
014771 106 111 -ASCII / FI/ 
014774 116 104 040 -ASCII /ND / 
014777 103 114 117 -ASCII /CLO/ 
015002 123 105 123 -ASCII /SES/ 
124 040 125 -ASCII /T U/ 
015010 116 104 117 -ASCII /NDO/ 
015013 116 105 040 -ASCII /NE / 
015016 132 117 116 -ASCII /ZON/ 
015021 105 000 000 -ASCII /€/<00><00> 
015024 045 116 045 P.AGX: .ASCII /ssNs/ 
015027 101 106 . ASC /ASF/ 
015032 124 114 105 -ASCII /TLE/ 
015035 122 122 055 -ASCII /RR-/ 
125 056 eASCII / U./ 
015043 123 105 105 -ASCII /SEE/ 
113 106 ASCII /K F/ 
15051 117 125 116 ASCII /OUN/ 
015054 104 123 -ASCII /D S/ 
15057 105 105 113 -ASCII /EEK/ 
15062 124 117 -ASCII / TO/ 

5 111 114 -ASCII / IL/ 
15070 114 105 107 ASCII /LEG/ 
15073 101 114 040 ASCII /AL / 
15076 124 122 101 ASCII /TRA/ 
15101 103 113 000 /CK/<00> 

5 116 045 P.AGY: .ASCII /sNs/ 
15107 101 106 /ASF/ 
15112 124 114 105 ASCII /TLE/ 








CZRCFCO _RC2S FR END TEST 
GLOBAL TEXT SECTION 


055 








I/ 


27-Mar-1985 15: 
11-Jan-1985 08: 






SEQ 0086 
:21:49 1 Bli 
19:19 


579 Page 58 
USER 1:(AZ tec. CZRCFCIZRCFC. B16;1 09812) 


CZRCFCO_RC2S FR END TEST 


GLOBAL TEX 








PAG 7c" CZRCFCIZRCFCA. B16;1 


SEQ 0087 69 
ce 12) 








7 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 =e sy 
GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1;(AZTEC.CZRCFCJZRCFC1.616;1 (12) 
000 -ASCII /N/<00> 
101 116 P.AHF: .ASCII /AN/ 
122 ASCII /0 R/ 
107 111 -ASCII /E€GI/ 
116 -ASCII /ON / 
126 101 -ASCII /AVA/ 
114 101 -ASCII /ILA/ 
114 105 -ASCII /BLE/ 
116 -ASCII /N/<00> 
101 116 P.AHG: .ASCII /sAN/ 
122 -ASCII /0 R/ 
107 111 -ASCII /€GI/ 
116 ASCII 
125 111 -ASCII /SUI/ 
101 102 -ASCII /TAB/ 
105 -ASCII /LES/ 
ASCII /N/<00><00> 
101 120 P.AHH: .ASCII /#AP/ 
117 107 ASCII /ROG/ 
101 115 ASCII /RAM/ 
116 17 ASCII / NO/ 
113 ASCII /T K/ 
117 27 ASCII /NOW/ 
116 ASCII /NSN/ 
-ASCII <00O> 
101 114 P.AHI: .ASCII /#AL/ 
101 104 -ASCII /OAD/ 
1 101 -ASCII / FA/ 
114 125 -ASCII /ILU/ 
105 -ASCII /RES/ 
-ASCII /N/<00><00> 
191 123 P.AHJ: .ASCII /AS/ 
101 116 -ASCII /TAN/ 
101 114 -ASCII /DAL/ 
116 105 -ASCII /ONE/ 
116 -ASCII /sN/<00> 
-ASCII <00> 
P.AHC: .WORD P.AHD 
-WORD P.AHE 
-WORD P.AHF 
-WORD P.AHG 
.WORD P.AHH 
-WORD P.AHI 
.WORD P.AHJ 
101 123 P.AHL: .ASCII /#AS/ 
103 103 -ASCII /UCC/ 
123 123 -ASCII /€SS/ 
116 -ASCII /N/<00> 
101 111 P.AHM: .ASCII /sAI/ 
126 101 -ASCII /NVA/ 
111 104 -ASCII /LID/ 
103 117 ASCII 
115 101 ASCII /MMA/ 
104 045 ASCII /NDs/ 
000 -ASCII /N/<00> 
101 103 P,AHN: .ASCII /#AC/ 
115 115 ASCII /0MM/ 








eects a L7 


ZRCFR} CZRCFCO RC25 FR END TEST 27-Mer-1985 15:21:49 VAX-11 Bliss-16 V4.0-579 ony toy 
vo3.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1:(AZTEC.CZRCFC JZRCFC1.616;1 (12) 
101 116 104 -ASCII /AND/ 
101 102 ASCII / AB/ 
117 122 124 -ASCII /ORT/ 
105 104 045 -ASCII /€Ds/ 
116 000 -ASCII /N/<00> 
045 101 125 P.AHO: .ASCII /sAU/ 
116 111 124 -ASCII /NIT/ 
055 117 106 -ASCII /-OF/ 
106 114 111 ASCII /FLI/ 
116 105 -ASCII /NES/ 
116 000 -ASCII /N/<00><00> 
045 101 125 P,AHP: ASCII /#AU/ 
116 111 124 -ASCII /NIT/ 
055 101 1 -ASCII /-AV/ 
101 ill 114 ASCII /AIL/ 
101 102 114 -ASCII /ABL/ 
105 045 116 -ASCII /ESN/ 
000 000 -ASCII <00><00> 
045 101 115 P.AHQ: .ASCII /sAM/ 
105 1 111 -ASCII /€DI/ 
101 106 -ASCII /A Fs 
117 122 115 ASCII /ORM/ 
101 124 040 -ASCII /AT / 
105 122 122 -ASCII /ERR/ 
117 122 045 -ASCII /ORS/ 
116 -ASCII /N/<00><00> 
101 127 P.AHMR: . ASCII /sAW/ 
122 111 124 eASCII /RIT/ 
105 120 -ASCII /E P/ 
122 117 124 -ASCII /ROT/ 
1 103 124 -ASCII /ECT/ 
105 045 -ASCII /EDs/ 
116 000 «ASCII /N/<00> 
101 103 P.AHS: .ASCII /sAC/ 
117 115 120 -ASCII /0OMP/ 
101 122 105 -ASCII /ARE/ 
105 122 -ASCII / ER/ 
122 117 l22 -ASCII /ROR/ 
116 ASCII /8N/<00> 
101 104 P.AHT; .ASCII /#AD/ 
101 124 101 eASCII /ATA/ 
105 122 -ASCII 7 ER/ 
122 117 122 -ASCII /ROR/ 
5 116 -ASCII /#N/<00> 
-ASCII <00O> 
045 101 110 Pp, AHU ASCII /sAH/ 
117 123 124 ASCII /0ST/ 
040 102 125 ASCII / BU/ 
106 105 ASCII /FFE/ 
122 040 101 ASCII /R As 
03 103 105 ASCII /CCE/ 
123 123 040 ASCII /SS / 
105 122 l22 ASCII /E€RR/ 
117 122 045 ASCII /ORs/ 
116 000 000 -ASCII /N/<00><00> 
045 10] 103 P.,AHV: .ASCII /s#AC/ 
117 116 124 -ASCII /ONT/ 








M7 | 
SEQ 0090 
ZRCFRL CZRCFCO_RC2S FR END TEST 27-Mer-1985 15:21:49 | VAX-11 B1i 579 Page 62 
v03.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZ TEC. TE ORCEC J2REFCI. 616;1 — (12) 
117 114 -ASCII /ROL/ 
1 122 -ASCII /LER/ 
105 l22 -ASCII 7 ER/ 
117 122 -ASCII /ROR/ 
116 000 -ASCII /8N/<00> 
-ASCII <00> 
101 104 P. AHW -ASCII /#AD/ 
111 126 ASCII /RIV/ 
040 105 -ASCII /E E/ 
122 117 -ASCII /RRO/ 
5 116 -ASCII /RSN/ 
-ASCII <00> 
101 115 P.AHX: .ASCII /sAM/ 
123 123 -ASCII /€SS/ 
107 105 -ASCII /AGE/ 
122 -ASCII 7 FR 
115 0 -ASCII /OM / 
116 -ASCII /AN / 
116 124 -ASCII /INT/ 
122 116 -ASCII /ERN/ 
114 0 -ASCII /AL / 
411i 10) -ASCII /DIA/ 
116 117 -ASCII /GNO/ 
124 lil eASCII /STI/ 
045 116 -ASCII /CSN/ 
-ASCII <00> 
e. AHK . WORD P. AHL 
.WORD P.AHM 
. WORD P. AHN 
.WORD P.AHO 
-WORD P.,AHP 
.WORD P.AHQ 
-WORD P.AHR 
-WORD P.AHS 
-WORD P.,AHT 
. WORD P. AKU 
-WORD P.AKHV 
-WORD P.AHW 
.WORD P.AHY 


-PSECT $G.0B8$, RO, D0 , GB& 
-BL 5 


RT:: KW 
RT. TABLE: 
-BLKW 1 
HWP. TABLE: : 
Kid 1 
XMT DATA, "BUF : : 
-BLKW 400 
RCV.DATA. Po : 
KW 400 
CLK .ADR: : 
K 1 
CLK. TYPE: : 


-BLKW 
CL¥.CSR:: 














| oa SETS ST are ited NESS cis | gh ee dF SEQ a ae 
) 


ZRCFAL ay Ag RC25 FR END TEST 27-Mer-1985 15:21:49 VAX-11 Bliss-1 6 
vo3.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USERS: 1: (AZTEC. CZRCFC I2RCFCA. 616;1 12 


.BLKW 
CLK .MERTZ:;: 


.BLKW 
CLK.START:;: 
-BLKW 
UNIT:: .BLKW 
LOG.UNIT:: 
-BLKW 
OUT .BOUND: : 
-BLKW 
IN.BOUND:: 
.BLKW 
mane 
RC25. ADDR: : 
RC25.DATA:: 
COM. AREA: : 
-BLKW 104 
HEAD. AREA:: 
-BLK 
RECEINS EN 
SEND.RING:: 
BLK 
REC .ENVELOPE: ; 
-BLKW 
SND .ENVELOPE: : 
-BLKW 
BUF .DESCRPTR: : 
.BLKW 
CMD .REF:; 
-BLKW 
BYTE.COUNT: : 
-BLKW 
000000 TICKS:: .WORD 
000000 SECONDS: : 
000000 MINUTES: : 


Ce eel ss wd oe cs — 


as 


540 


— 
(=) 
vo 
ao 
Cc 
az 
Oo. RP Ree O Oo OF ee 


143325 END.LBN:; 
P, oy -BLKB 








ZRCFB1 CZRCFCO RC25 FR END TEST 
vo3.0 GLOBAL TEXT SECTION 
005630 RET.UNIT.FLAG:: 
.BLKW 
005632 Pl:: -BLKW 
005634 é P2:: -BLKW 
005636 P3:; -BLKW 
005640 P4:: -BLKW 
005642 PS:: -BLKW 
005644 P6:: -BLKW 
005646 RET. STATUS: 5 
005650 000000 ER.STATUS:: 
005652 CANCEL . TIMER: : 
BLK 
005654 CMD.SLOT:: 
-BLKW 
005656 RES.SLOT:: 
.BLKW 
005660 t! -BLKW 
005662 LBON.ST::.BLKW 
005664 LBN.ED:: .BLKW 
LON.SZ::.6LKW 
005670 FREE. -ADOR: : 
-BLKW 
005672 MEM. SIZE:: 
-BLKW 
005674 H.SADD: : .BLKW 
005676 -EADD: : .BLKW 
005700 oe Los 
005702 000000 CMOD:: .WORD 
005704 NUM, -RETRIES : : 
005706 000000 RETRIES:: 
“WORD 
005710 000001 FAL .CODE: : 
. WORD 
005712 DMC.TEST:: 
.BLKW 
005714 BYT.CNT:: 
.BLKW 
005716 OM.REC:: .BLKW 
5720 DM.XMT:: .BLKW 
722 000037 SIZ.LBN:: 
. WORD 
S724 000000 OFFSET: : .WORD 
726 PASSO:: .BLKW 
5730 TEMP: ; BLKW 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
















B8 


27-Mer-1985 15:21:49 
11-Jen-1985 08:19:19 


SEQ 0082 
(12) 


VAX-11 B1i 
i: 


-16 V 579 
USER#1: (AZTEC, CORCFCIZRCFCA. B16;1 


oO - OFF Rr eRe ee el lOO Oh Oe hehe 


HOW Ree e 


L$SOFT, T$PTHV, L$RPT, L$INIT 
LS$CLEAN, LSLAST L$HARD, L$DVTYP 
L SDE SC, L$0U L$AU, L$AUTO, T1 


124, 125, 126, 127, 128, 129 





C8 





SEQ 009 
ZRCFB1 CZRCFC)_RC2S FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bli nag 65 
v03.0 GLOBAL TEXT SECTION 11-Jen-1985 08:19:19 USER$1: (AZ TEC. *ezRCFCIZRCFCA B16;1 (12) 
000216' LSERRTBL#= ERRTYP 
000244' L$SWe« LSSWLEN-2 
000230' L$HWss LSHWLEN-2 
000011' L$DEPO== LSREV+1 
30° OFPTBL*= LSHWLEN-2 
000244' SFPTBL#= L$SWLEN+2 
002060' j RINGBASE = COM. AREA+10 
000002' FI TIME*« P.AAA 
000006 ' FRUs= P.AAB 
000036 ' “ ADAPTOs= P.AAC 
000070' H CONTRO== P.AAD 
000124' DRIVE. *= P,AAE 
000154' MECHANs = P.AAF 
' QSTi== P. AAG 
000222' QST2== P.AAH 
32' QST3== P.AAI 
44! QST4s= P.AAJ 
000270' QSTo== P.AAK 
000342' QST7== P.AAL 
000422' QST8== P.AAM 
000442' QST9«= P.AAN 
000460' QST10== P. AAO 
000540' QS10.1== P. AAP 
000570' QS10.2== P.AAQ 
50‘ QSTli== P.AAR 
000724' QST14== P.AAS 
000776' QST15== P.AAT 
001050‘ DBMi== P.AAU 
001150’ DOBM7== P.AAV 
001214' DBM8== P. AAW 
001276' DBM9== P.AAX 
, O0BM10== P.AAY 
001422' DBM11== P.AAZ 
001470' DBM12== P.ABA 
001530‘ DBM13== P. ABB 
564' DBM14== P.ABC 
001620' DBM15== P.ABD 
662' DBM16== P.ABE 
001726‘ DBM17== P. ABF 
001776' DBM18== P.ABG 
2046' DBM19== P.ABH 
002106' DBM20== P.ABI 
002156‘ DBM21== P.ABJ 
2226' DBM22== P.ABK 
002274' DBM23== P.ABL 
2356' DBM24== P.ABM 
002422' DBM2S== P.ABN 
002460’ DBM26== P.ABO 
002524’ DBM27== P. ABP 
564' DBM28== P. ABQ 
34' DBM29== P.ABR 
002674' DBM30== P.ABS 
002732’ DBM31== P.ABT 
002774' DBM32== P. ABU 
003030’ DBM36== P. ABV 















D8 








€ 
ZRCFB1 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4.0 . ay 66 
v03.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1: : (AZTEC. CoRCEC IZRCFCA. B16;1 (12) 

003072' D0BM37== P, ABW 
003136' DBM38== P.ABX 
003176' DBM39== P.ABY 
Se’ MSG.0l1== P.ABZ 
003304’ ERR .Ol== P.ACA 
3330' ERR.O2=2 P.ACB 
003376' ERR .O3== P.ACC 
P FMT$Ce#= P.ACD 
S2' FMTl== P.ACE 
003536' FMT 222 P. ACF 
3616' FMT32= P.ACG 
003712' FMT4e= P.ACH 
003750’ FMTS=#= P.ACI 
004030' FMT62= P.ACU 
004110' FMT7#= P.ACK 
54' FMT7As= P.ACL 
004220' FMT6== P.ACM 
004310' FMT9== P.ACN 
12' FMT10=« P.ACO 
FMTll== P.ACP 
0! FMTi2== P.ACQ 
004614' FMT13== P.ACR 

S2' FMT14=s= P.ACS - 
004716' FMT15== P.ACT 
004776' FMT16== PACU 
, FMT17=#= P.ACV 
005120' FMT18== P.ACW 
005210’ FMT19«= P.ACX 
300' FMT20== P.ACY 
005332’ FMT$A== P.ACZ 
005374’ MSG.PWR== P.ADA 
5430' MSG.1=2 P. ADB 
0’ MSG.22= P.ADC 
005510’ MSG.7== P.ADD 
005562’ MSG.6== P. ADE 
005624' MSG.9== P. ADF 
S662' MSG.10== P.ADG 
005730’ MSG.11l== P.ADH 
005766’ MSG.13== PADI 
006010’ MSG.14== P.ADJ 
036' BUFF .ERR== P. ADK 
006114' DMC .ERR== P. ADL 
006152’ INI .MSG== P.ADM 
006234' END .MSG== P.ADN 
006300' BRERR== P.ADO 
006356’ MSG. SEEK .ERR== P. ADP 
006400' MSG.HSWICH.ERR== P.ADQ 
006424' MSG.SAC.ERR== P.ADR 
006450’ MSG.COM.WPT== P.ADS 
006504’ SK.FOR.ERR== P.ADT 
006530’ SK .REV.ERR== P.ADU 
554’ SK.TOG.ERR== P.ADV 
006576’ SK..RAN.ERR== P.ADW 
006620' MSG.WRITE.ERR== P.ADX 
006652’ MSG.READ.ERR== P.ADY 
006674’ MSG.GUS.ERR== P.ADZ 
006734’ AVAIL .ERR== P.AEA 













ZRCFB1 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:21:49 VAX-11 Bliss-16 V4,0-579 pepe 67 
v03.0 GLOBAL TEXT SECTION 11-Jan-1985 08:19:19 USER$1;: (AZTEC. CZRCFCIZRCFCA. Bi6;1 0912) 


006766' MSG.AVE.TIME== P.AES 
007056' MES.SKO. TIME== P.AEC 
007146' MSG.PRO. TIME== P.AED 
007214' MSG.SK.TIME== P. AEE 
007266' MG. . TIME== P. AEF 
007340' MSG.ROT.TIME*= P.AEG 
007416' AZT. READY .ERR== P.AEH 
007456' EXE. SUP .ERR== P.AEI 
007516' SND.DATA.ERR== P.AEJ 
007554' RE.DATA.ERR== P.AEK 
011576' PFE .STRUCT#= P.AEL 
012122' EMSG.STRUCT== P.AFJ 
015410' RC. STRUCTURE» « P.AFO 
015742' vs : SOUP .STRUCT== P. AKC 
016404' SMSCP.STRUCT#= P, AHK 
3 PSECT SUMMARY 
: Psect Name Words Attributes 
; AA$CODE 94 Ws. « « Las SA. GR 
3 $GLOB$ 1517 RO, D , GBL, REL, CON 
; $PLIT$ 3727 RO, D , GBL, REL, CON 
: Library Statistics 
3 el Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
> USER$1:(AZTEC.CZRCFCJAZTECO.L16;2 485 154 31 24 00:00.2 





3 COMMAND QUALIFIERS 
5 BLISS/PDP11/LIST ZRCFC1.B816/EN:NOEIS 
Size: 0 code + 5338 date words 

i 01:33.8 


Elapsed Hees 01:39.6 
Lines/CPU Min: 1248 
Lexemes/CPU-Min: 10517 
ry Used: 299 peges 
Compilation Complete 
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ZRCFB2 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4,0-57 ~ Poms 1 
11-Jan-1985 08:19:19 USER$1: : (AZTEC. CZRCEC IZRCFC, B16;1 (1) 


; 0001 0 MODULE ZRCFB2 ( 








ZRCFR2 


Se Se SF SE SF SE SE OF SF SF Se Se Gs BF SF GF GF GE GH GF GF Ge Se GF Ge GF GF Ge GF GF GF GF OF Gs Gs GF OF Gs SF OF Os Ge Os Gs Os Gs GS GF Os Oe Ge Os Os Os Os os os 


a a eh al al ol el a ol oh ed el ed od od od ed dod oe La a Ls ed od ed eh ee titolo ototo) 


CZRCFCO RC25 FR END TEST 


STITLE ‘'CZRCFCO = 2 FR = FVOS.0"» 


Opt tev EL 0. 
ADDRESSING. MODE (RELATIVE) 
BEGIN 
t <BLF /LOWERCASE _KEY> 


librery ‘AZTECO’'; 


require ‘'BLSMAC.REQ'; 


structure 
RC25 (0, P, S, E) = 
begin 


local 
RC_REG; 


RC_REG = .(RC25 + supvels0)<0, 
RC_REG 


end 
<P, 3. E>; 


et 
sans code = AASCODE; 


maregee routine 
cee CLOCK : 
K_INIT ; 


CLO novelue, 
RCeSdERn RPT 


: novalue, 


AZP_INIT, 

PRTSFRU_ CALLOUT : novalue, 
INIT_ AREA, 

NXMI~: L3ISR novalue 


CLK_INT SERV : or SISR novelue. 


REC_STA 
SET-ENTLR. CHAR, 


AVAILABLE, 

ON_LINE, 

READ oN" 

READ_F 5 soveln, 
GET ONIT La 

RANDOM_NUM : pe 
GET_CMD_SLOT, 

Af “RES SLOT : novalue, 
EXAM_DATA, 

AZTEC READY, 
DO_RETRIES : novelue, 
decode : novelue; 





Sbpvel, 0>; 
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27-Mar-1985 15:23:34 
11-Jan-1985 08:19:19 


VAX-11 Bliss-16 V4 
USER$1: (AZTEC. CZRCECIZRCFC2. B16;1 


! DEFINE ACCESS ALGORITHM 


! TO ALLOW FIELD REFERENCE 


! TO THE AZTEC 





SEQ _ 0097 


2 
O98 025 








- 





ZRCFR2 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:23:34 VAX-11 Bliss s- age 3 
¥03.0 11-Jan-1985 08:19:19  USER$1:[ AZTEC. TO ORCEC IZREF CR. 616;1. (2) 
3 1547 1 external 
; 1548 1 ADAPTO, 
3 1549 1 CON 
; 1550 1 COM en : blockvector (REC. ALLOCATE + SND_ ALLOCATE + HOR_SIZ, 2, word), 
:; 1551 1 HE : block (4, word) field (HOR_F 
; 1552 1 RECEIVES RING'S vo blockvector e fREC AL ALLOC CATE, rd) field (DSC_FIELD), 
3 i553 1 SEND RING : ref blockvector ts 2. 15 — (OSC_F FIELD), ‘ 
; 1554 1 REC_ENVELOPE : blockvector EC ORL OGATES” RB _S * 2, word) field (ENV_FIELD), : 
; 1555 1 SND_ENVELOPE : blockvector [SND ALLOCATE, B-ST5e + 2, word field CENV. FIELD), 
; 1556 1 BUF DESCRPTR : word voletile, 1 BUFFER DESCRIPTOR AR 
; 1557 1 BYTE COUNT : word voletile, ! BYTE COUNT BUFFER 
; 1558 1 eLK K_ADR : word, ‘LOCATION TO RETURN CLOCK ADDRESS 
; 1559 1 CLK"TYPE ; word, {TYPE OF CL OCK ON SYSTEM 
‘Il; 1560 1 1(O=NO CL -1= L-CLOCK, 1=P- p-CLOCK) 
; 1561 1 CLK_CSR_: word, ‘STORE CSR ADRESS FOR CLOCK HE 
; 1562 1 CLK_HERTZ : word, ! CLOCK 
; 1563 1 CLK-START : word, ! STORE CLOCK START VAL 
; 1564 1 TICKS : word volatile ! STORE NUMBERS OF clock INT. OCCURED 
; 1565 1 SECONDS : word volatile, ! STORE SECONDS 
; 1566 1 MINUTES : word voletile, ! STORE MINUTES 
; 1567 1 MSGADR : word voletile, ! STORE MESSAGE ADOR 
; 1568 1 DATAL : word, ; ! STEP 1 WRITE DATA 10 AZTEC_INIT 
; 1569 1 DATA2 : word voletile, ! STEP 2 WRITE DATA TO AZTEC_INIT 
; 1570 1 DATA3 : word voletile, ' STEP ; WRITE DATA TO AZTEC_INIT 
; 1571 1 DATAS : word volatile. ! STEP 4 WRITE DATA 10 AZTEC_INIT 
; 1572 1 B_MASK : byte volatile, ' MASK FOR WITCH STEP T0 DO 
|; 1573 1 : ! IN AZTEC_INIT. 
; 1574 1 LBN : word voletile, ! LOGICAL BLOCK NUMBER BUFFER 
; 1575 1 LBN_ST : word volatile, ‘ START LOGICAL BLOCK NUMBER 
; 1576 1 LBN_ED : word volatile, ! ENDING LOGICAL BLOCK NUMBER 
3 1577 1 CMD_REF : word volatile, ' COMMAND REFERENCE 
; 1576 1 RES_SLOT : word volatile, ! RECEIVING RING SLOT 
; 1579 1 CHD SLOT i ae volatile, ! SENDING RING SLOT 
; 1580 1 VEC_AD : ‘ INIT INTERRUPT VECTOR 
; 1581 1 RET “statue's sword volatile, ' RETURN STATUS 
; 1582 1 ER STATUS : ! SAVES ERROR CODE 
:; 1583 1 TEMP : word ec 
; 1584 1 PASSO : word, ! FLAG FOR FIRST PASS 
; 1585 1 crop : word, ! COMMAND MODIFIER 
; 1586 1 BOUND : word, 
; 1587 1 FRE MEM_ADDR, ! STARING FREE MEMORY ADDRESS 
; 1588 1 M_SIZE, ' FREE MEMORY SIZE 
; 1589 1 RINGBASE: 
; 1590 1 DRIVE_, 
; 1591 1 DBM 
; 1592 1 ERR_O1, 
; 1593 1 ERR02. 
; 1594 1 ERR~03, 
; 1595 1 FMTSC, 
; 59% 1 FRU, 
3 1597 1 FMT2, 
; 1598 1 FMT3, 
; 1599 1 FMT13, 
; 1600 1 FMT14, 
; 1602 1 OMC_TEST, 
; 1603 1 BYT_CNT, 
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11-Jan-1985 08:19:19 USER$1: (AZTEC. Cancee zncrc2. B16;1 (2) 


Q 

i RUN TIME TABLE STORAGE 

HWP_TABLE : ref plesk {WORD2_IN_HWP_TAB, word) field (HWP_FIELDS), 

RT_TABLE : ref block (WORDS IN_AT 3\%8 word) field (RT_FIELDS), 

fe : vector (WORDI_INR TTAB, word 
AM_NEX : word vo ai 

CANCEL, TIHeR : word volatile, 


RETR 
Su AETAIES, 


OOE, 
y? iL BN : nord volatile, 
MASK py 2 volatile, 
Ret UNIT _ FLIG : word, 
: word volatile, 
PD : word volatile, 
P3 : word voletile, 
P4 : word voletile, 
PS : word voletile, 
: word volatile, 


RC25_ADDR : ref RC25 field (RC_REG), 

RC25_ BAYA block (2, word] field (RC_REG), 
EMSG STRUCT : vector {4], 

PFE_STRUCT : vector [23], 

RC_STRUCTURE : vector (39), 
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ZRCFR2 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:2 
03.0 11-Jan-1985 08:1 


SEQ 0100 


11 Bliss-16 V4.0-579 Page 


:34 
19 USERS 1:(AZ TEC. CZRCFCJZRCFC2.B16;1 (23 


3 
9; 





: 1661 1 SDuUP STRUCT : vector [7) 

; 1662 1 SMSCP_STRUCT : vector [13), 

; 1663 1 XMT_DATA A bur : vector (256, word], 
3 1664 1 RCV DATA_BUF : vector [256, word], 
3 1665 1 : word, 

ry 1666 1 SESE; : word, 

: 1667 1 LOG_UNIT : word; 

3 1668 1 








OONNNNAAHOOOH 
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MiSCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 
11-Jan-1985 08:19:19 


Stitle ' wae ke ANEOUS yao 
Ssbttl ‘TYPE AND DESCRI 


PTION' 
: sree "oF DEVICES SUPPORTED BY PROGRAM 
ST Deecnte AZTEC RC25 PLATTER’ ); 


is 
DESCRIPT (seeciz'RC2S FRONT END/HOST DIAGNOSTIC’ );#( 


3¢¢ 
; THE HARDWARE (gx CODING SECTION Contr ~ 
; han ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
S_ ARE NOT ExecuteD AS MACHINE INSTRUCTIONS BUT ARE 
; TNT ERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 
Si 


\s 

BGNHRD ; 

GPRMA (QST1, #0'0', 0, #0'00000', #0'177777', YES, 1); !IP ADDRESS? 

GPRMA (QST2, #o'2', 0, #0'4', #0'774', YES, i); ar oe 

GPRMD (QST3, 80'4', 0, 80'177777', So'4', o'7', YES, 1); 'BR LEVEL 

tt A ee %0'6', D, #0'377', 0'0', sdecimal’253', NO, 1); | !UNIT NUMBER(S) 


VAX-11 Bliss- 
USER$1: [AZT 


16_V4.0-579 
EC.CZRCFC )ZRCFC2.616;1 


SEQ 0101 


6 
OF 63) 





AONOOOHNHOH 
~ 
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MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 X-11 Bliss-16 579 age 
SOFTWARE PARAMETER CODING SECTION 11-Jen-1985 08:19:19 USER $1: (AZ TEC, CZRCEC IZRCFC2. B16;1 (4) 


— ‘SOFTWARE PARAMETER CODING SECTION’ 


3°°¢ 
; THE SOFTWARE PARAMETER CODING SECTION yar MACROS 
3 THAT ARE USED BY THE SUPERVISOR TO BUILD P LES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
s INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW —- TO ESTABLISH COMMUNICATIONS 


3; WITH THE OPERA 
7 
GPRML (QST6, #0'0', #0'177777', YES, 1); _1USE TOP SURFACE FOR SINGLE SURFACE TESTS? 
XFERF (BOTTOM); ~!IF NO GO 10 LABEL BOTT 
GPRML (QST7, #0'2', 80'177777', YES, 1); tbo YOU WISH TO LIMIT THE AREA TESTED 


: : STIONS 
Som ters: #o'4', D, 80'177777', sdecimal'0', sdecimal’820', NO, 1);  !STARTING TRACK? 
GPRMD (QST9. So'6'. D. 80'177777', Sdecimel’O’, Sdecimel’620', NO, 1) SENDING TRACK? 


TOM 
GPRML (QST7, #0'2', #0'177777', YES, 1); '00 YOU WISH TO LIMIT THF SREA TESTED 
tIN TESTS @15 - 6187 
XFERF (VLAST); 'IF NO GO TO LABEL VLAST 
GPRMD (QST8, #0'4', D, %0'177777', sdecimel'821', sSdecimal'1641', NO, 1); 'STARTING TRACK? 
GPRMD (QST9, s0'6', D, 80'177777', sdecimal'821', sdecimal’1641', NO, 1); ‘ENDING TRACK? 
$l (MANINT); ‘LABEL THIS QUESTION 
$L (LAST) 
$L (VLAST); 
GPRMD (QST11, #0'10', D, #0'177777', #0'0', so’ 177777", YES, 1); ‘NUMBER OF RETRIES FOR TEST 
GPRML (Q510_2, so’ 12", 1, YES, 1); '00 YOU WISH 10 CONTINUE TESTING? 
GPRML (QST16, #0'14', 1, YES, 1); ‘D0 YOU WANT 19 DO THE MANUAL 
'INTERVENSION TEST? 
a! (QS10_1, #0'16', 1, YES, 1); D0 YOU NEED TRACE MODE? 


oe 








ZRCFR2 
v03.0 
: 1725 1 
8 1726 1 
: i727 1 
: 1728 1 
: 1729 1 
8 1730 e 
3 1731 e 
8 1732 1 
000000 
000000 101 
000003 105 
000006 l22 
000011 065 
000014 114 
000017 124 
000022 000 
000024 122 
000027 065 
000032 122 
000035 124 
000040 116 
000043 110 
000046 124 
000051 111 
000054 116 
000057 124 
000062 000 
000064 000000C 
000066 000031 
000070 
000072 
000074 177777 
000076 001031 
000100 
102 
000104 000774 
106 002032 
110 
1i2 177777 
114 000004 
116 000007 
120 003042 
122 
124 000377 
126 
130 000375 
132 
134 000000C 
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MISCELLANEOUS SECTIONS 27-Mer-1985 15:23:34 
REPORT CODING SECTION 11-Jen-1985 08:19:19 


Sebttl ‘REPORT CODING SECTION’ 


! THE REPORT CODING SECTION CONTAINS THE 
! “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


‘. 

BGNRPT; 

return; 
1; 


-TITLE ZRCFB2 MISCELLANEOUS SECTIONS 
-IDENT /V03.0/ 


-PSECT AASCODE, RO 
132 124 LSOVTYP;; 


000 "A 
103 062 LSDESC::.ASCIT RC2/ 


LSHROLN: : 
GP$1:: “WORD 
[WORD Q571 
° 
GP$2:: :WORD 1031 


GP$3:: .WORD 2032 
GPs4:: :WORD 3042 


LS$NDHRD: : ' 
LSSFTLN:: 


SEQ 0103 
) 


VAX-11 Bliss-16 V4.0-579 ege 8 
USER$1:(AZTEC.CZRCFC JZRCFC2.616;1 (5) 





. WORD 
GPsS:: .WORD 
. WORD 


. WORD 
$G0TTOM: .WORD 
GPs6:: .WORD 

. WORD 

. WORD 
$MANINT: .WORD 
GP#7:: WORD 

. WORD 

. WORD 

. WORD 

. WORD 
GP$8:: .WORD 

WORD 

. WORD 

. WORD 

. WORD 
$LAST: .WORD 
$LBOTTOM; 

. WORD 
GP$9:: .WORD 

. WORD 

WORD 
$VLAST: .WORD 
GP$10:: .WORD 

. WORD 

. WORD 

WORD 

. WORD 
GP$11:: .WORD 

. WORD 

WORD 

. WORD 

. WORD 
$LMANINT: 

WORD 
$LLAST: .WORD 
$LVLAST: .WORD 
GP$12:: .WORD 

WORD 

. WORD 

. WORD 

. WORD 
GP$13:: .WORD 

WORD 

. WORD 
GP$14:: .WORD 

. WORD 

. WORD 
GP$15:: .WORD 

. WORD 

WORD 
LSNDSFT:; 

BLKW 


SEQ 0104 
27-Mar-1985 15:23:34 VAX-11 Bliess-16 V4.0-57 Page 9 
11-Jen-1965 08:19:19 USER$1:(AZTEC.CZRCFCJZRCFC2.616;1 (5S) 


<< <L ONDSFT-LSSFTLN>/2>-1> 

130 

= tie 

Se nen 
QST7 

ae << $LMANINT - $MANINT > ¢400>+4>+40> 


1464 
<<< $LLAST-$LAST>#400>-4> 
1004 
1130 
QST7 


-1 
<<<<$LVLAST-$VLAST >e400>+4>+40> 
2042 








MISCELLANEOUS SECTIONS 


ZRCFB2 
vo3.0 REPORT CODING SECTION 


L2PPPpppope 


PEO 
SSSSSSSSSSSSS 


“GLOBL 


L$HARD== 
L$SOFT== 


.SBTTL 
LRPT: RTS 
Routine Base: 
words 


3 Routine Size: 1 word, | : 
; Maximum steck depth per invocation: 


- SBTTL 
JSR 
TRAP 
RTS 


004767 - LS$RPT:: 
104425 
000207 
; Routine Size: 
3; Maximum steck 


177772 


4 words, | Routine Base: 
depth per invocetion: 2 wor 


AASCODE + 0306 


AASCODE + 0310 
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27-Mer-1985 15:23:34 
11-Jen-1985 08:19:19 


VAX-11 
USER$1; 


lies-16 V4.0-579 
AZTEC. CoRCECIZRCFC2. B616;1 


ADAPTO, CONTRO, COM. AREA, alt AO, ARE 
RECEIVE. RING, SEND. 
SND. ENVEL 


MEM ‘ 5 
ORIVE., OBM1 ER : 
FMT$C, FRU, FMT2, FMT3, 
FMT14. FMTiS Ore. TEST, BY T, 
OM. xT, on. REC, H.SADD. 
BUF.LENGTH, MANU.SW, SWI 
Sup. SWe CONTINUE. F FMTSA, aetis. Me staa 


TABLE TABLE, RT, 1.AM.NEX 
CANCEL” TIMER, te ance bye: P  RETRIES 


NUM.RETRIES, SWP. TRA 
WP.END, SWP.TOP, SWP.LIM nit. L$UNIT 
WR . CODE 


CNT 


$10.1, $10.2 
A. EMSG.STRUCT, PFE. 
RC.STRUCTURE, SOUP.STRUCT, SMSCP.STRUCT 
XM7.DATA.BUF. RCV.DATA.BUF, UNIT 
OFFSET, LOG.UNIT 


L$HRDLN-2 
L$SFTLNe2 


LRPT REPORT CODING SECTION 
PC , 1724 


Saye? REPORT CODING SECTION 


ost PT 
PC 
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ZRCFB2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Bliss-16 V4.0 es ts 
vos.0 INITIALIZE SECTION i-Jen-1985 08:19:19 USERS: (AZTEC.CZRCFCIZRCFC2.616,1 (6) 


Sebttl "INITIALIZE SECTION’ 


"THE INITIALIZE SECTION cyl ey THE CODING THAT IS PERFORMED 
7 AT THE BEGINNING OF EACH P 


BGNINIT; 


ocal 
DELAY_MULT; !CONTAINS DELAY FACTOR 
SETPRI (PRIOO); !PRIORITY 0 
— CEF _PWR) 'ARE WE HERE BECAUSE OF POWER FAIL? 


begin 
PRINTF (MSG_PWR); "POWER DELAY - WAITING” 
incru COUNT from 0 to 60 do ! WAIT APPROX. 60 SECONDS 
n 
DEPAY_MULT = 10000 
DELAY~( . DELAY MULT); 
BREAK; 
ond; 


DOCLN; 
end; 


! BREAK FOR ACT 


MAKE SURE NOT MORE THAN 16 UNITS (PLATTERS) HAVE BEEN SPECIFIED. 
IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR. 


if .LSUNIT 16 
then _ IMORE THAN 16 UNITS? 


we 
PRINTF (ERR_O1); 'ERROR - TOO MANY UNITS 
DOCLN; IRETURN TO SUPERVISOR AND CLEAN UP 


H 
if READEF (EF _CONTINUE ) then return; 'IF CONTINUE GETS YOU HERE SKIP INIT. 
PASSO = READEF (CEF_START); ! SAVE START FLAG 
aes or READEF (EF_RESTART) or READEF (EF _NEW) 
then 


begin 

_UNIT = -1; 
-NUM_RETRIES = ZERO; 
RETRIES = FALSE; 
FIND_CLOCK (); 


if CLK_TYPE eqlu NO_CLOCK ! IF THERE IS NO CLOCK 
then ! IN THE SYSTEM TELL THE 
begin ! OPERATOR 
PRINTF (ERR_O2); 

DOCLN; 


end 
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MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


lse 
-CLK_CSR = ZERO; 
A (FREE _MEM_ADDR ) 
M_SIZE = ..FREE_MEM “hoor; 
end; 
begin 
LOe. UNIT * ,LOG_UNIT «+ 1; 
if .LOG_UNIT gequ .L$UNIT then DOCLN; 


end 
until (GPHARD (.LOG_UNIT, HWP_TABLE)) neaqa 0; 
T_TABLE = 


27-Mar-1985 15: 
11-Jan-1985 08: 


D9 





:34 VAX-11 Bli 
:19 USER$1: [AZ 


! STOP THE CLOCK 


DETERMINE THE FREE MEMORY STARTING ADDRESS AND IT SIZE 


'FIND THE STARTING ADOR 
!DETERMINE THE SIZE 


OTHERWISE, INCREMENT LOGICAL UNIT 
tAND CHECK FOR HIGH LIMIT. 
!IF SO QUIT INIT AND DO CLEANUP. 


!GET HARDWARE P_TABLE POINTER 
ND LOAD RT_TABLE WITH THE 


T (0); 
RT-TABLE ar _IP AbDRESS * ,HWP_TABLE [HWP IP ADDRESS): 'HARDWARE P_TABLE INFO. 


RT_TABLE vector .HWP_TABLE [HWP_VECT 


RT_TABLE (RT_UNIT 1) = 
RC3DS_ADDR = -RT TABLE (RT_IP_ADDRESS); 
UNIT = .RT_TABLE [RT T 

SETVEC (.RT_TABLE (RT vector}, NXMI, PRIO7); 
PRINTB ne .LOG_UNIT, .RC25_ADDR, .UNIT); 


if .SWP_TOP 
then 

OFFSET = 0 
else 

OFFSET = 821; 
if not .SWP_LIMIT 
then 


begin 
SWE. START = 0 + .OFFSET; 
a = 820 + .OFFSET; 


if .SWP_START gequ .SWP_END 
then —s - 

begin 

PRINTB CERR-03); 

DOCLN; 

end; 


8. 
ENDINIT; 


-GLOBL LSDLY - 





RTTTABLE ERTTBR LEVEL] 2 OHOP TABLE THOM SReC EVEL) 
"HUP. TABLE CHP. UNIT “NUMBER 


E }, ‘PLATTER 
AD 


!IP_ ADDRESS FOR THE CONTROLLER 
‘AND PLATTER @ UNDER TEST 

!SET UP INTERRUPT ROUTINE 
!GIVE THIS INFO TO OPERATOR. 


! SELECT OFFSET BASED IN SURFACE 
SELECTED. 


IF Leats NOT PROVIDED THEN 
SELECT TRACK NUMBERS 
RECORDINGL 


IF STARTING TRACK IS GREATER 
THAN ENDING TRACK THEN ERROR 


Tec. CZRCECIZRCF C2.616;1 © 















—— - 
i (6) 












EQ 





, SEQ 0108 
MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Bliss-16 V4.0-579 P 3 
INITIALIZE SECTION 11-Jan-1985 08:19:19  USER$1:(AZTEC.CZRCFCIJZRCFC2.816;1 (6) 
.SBTTL LINIT INITIALIZE SECTION 
004167 0000006 LINIT: JSR R1, $SAVE3 : 1732 
905008 ist SP) 
; 74 
104441 TRAP sd _— 
012700 000034 MOV 034,RO : 1745 
104447 TRAP «47 
103033 BHIS 63 
012746 0000006 MOV OMSG. PWR, -(SP) ——— 1748 
012746 000001 MOV #1, -(SP) 
010600 SP,RO ; SP,«* 
104417 TRAP 7 
005002 CL R2 ; COUNT 1750 
012703 023420 1s: MOV $23420,R3 ; *,DELAY.MULT 1752 
010301 MOV R3,R1 ; DELAY.MULT, $$TMP2 1753 
001411 2$: BEQ 53 
016700 0000006 MOV L$DLY,RO ; *,$$TMP1 
001404 BEQ 43 
000004 3$: CLR 4(SP) ; $$TMP 
5300 DEC RO ; $$TMP1 
001374 BNE 3$ 
5301 4s: DEC Ri ; $$TMP2 
000766 BR 23 
104422 S$: TRAP 22 
005202 INC R2 ; COUNT 1750 
020227 000074 CMP R2,074 ; COUNT, + 
101756 BLOS i$ 
104444 TRAP 44 , 1755 
022626 CMP (SP)+,(SP)-« : 1747 
026727 0000006 000020 6$: CMP L$UNIT, #20 ; 1765 
103410 ' BLO 
012746 0000006 MOV #ERR.01,-(SP) : 1768 
012746 000001 MOV #1,-(SP) 
010600 MOV SP,RO ; SP,* 
104417 TRAP ‘17 
1 TRAP «44 
022626 CMP (SP)+,(SP)-« ; 1767 
012700 000036 7$: MOV $36,RO ; 1772 
104447 TRAP 
103002 BHIS  8$ 
000167 000426 JMP 18$ 
012700 000040 8$: MOV #40,RO : 1774 
104447 TRAP 47 
040101 BIC R1,R1 
005501 ADC 1 
010167 0000006 MOV R1,PASSO 
032701 000001 BIT #1,R1 ; *,PASSO 
001010 BNE 9$ 
012700 000037 MOV 937,RO 
104447 TRAP 47 
103404 BCS 9$ 
012700 000035 MOV #35,RO 
104447 TRAP «47 
3034 BHIS 


1030 12$ 
012767 177777 000000G 9$; MOV #-1,LOG.UNIT 











MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


000000G 
000000G 
000000V 
000000G 


0000006 
000001 


10$: 
11$: 


12$: 


13$: 








F9 





SEQ 0109 
27-Mar-1985 15:23:34  VAX-11 Blise-16 V4.0-579 Page 14 
11-Jan-1985 08:19:19 | USER$1: (AZTEC. CZRCFCJZRCFC2.816;1 (6) 
NUM. RETRIES ' 1780 
RETRIES ; 1781 
PC FIND. CLOCK ; 1782 
OCLK. TYPE ; 1784 
MERR.02, -(SP) ; 1787 
4 * sp) 
SP,RO H SP ,* 
17 
44 
(SP)+,(SP)- ; 1786 
; 784 
acLK.CSR ; $70 
PF 1 
RO, FREE.MEM. ADDR 
(RO), MEM. SIZE ; FREE.MEM.ADOR, « 1797 
LOG.UNIT ; 1804 
LOG.UNIT,L$UNIT ; 1806 
13$ 
LOG.UNIT.RO ; 1809 
RO, HWP. TABLE 
ORT, RT. TABLE ; 1811 
(RO), RT HWP. TABLE, « 
ORT.RI ; 
2(RO),2(R1) 
4(RO),4(R1) 
6(RO),6(R1) 
(RO), RC25. ADDR 
RO 
6(RO),UNIT 
0,-(SP) 
XM, -( SP) 
2(RO),-(SP) 
03,-(SP) 
(SP 
RC25. ADDR, -(SP) 
LOG.UNIT, - 
6DBM1, -(S 
04,-(SP 
SP. RO 
14 
#1,SWP. TOP 
4a$ 
OFFSET 
S$ 


1 
01465, OFFSET 
01, SUP LIMIT 


OFFSET, SWP.START 
OFFSET, SWP.END 
#1464, SWP.END 

oe Set ee 


G9 





ZRCFR2 MISCELLANEOUS SECTIONS 27-Mer-1985 15:2 
03.0 INITIALIZE SECTION 11-Jan-1985 08:1 
000556 012716 MOV #ERR.03,(SP) 

000562 012746 000001 MOV #1,-(SP) 

000566 010600 MOV SP, 

000570 104414 TRAP «14 

000572 104444 TRAP 0s 44 

000574 005726 TST (SP)- 

000576 062706 000020 17$: ADD #20,SP 

000602 005726 18$: TST (SP Js 

000604 000207 RTS PC 

; Routine Size: 195 words, Routine Base: AASCODE + 0320 


; Maximum stack depth per invocation: 16 wor 


-SBTTL LS$INIT INITIALIZE SECTION 
L$INIT:: JSR PC,LINIT 


RTS PC 
AASCODE + 1126 


000000 004767 177166 
000004 104411 
000006 


Routine Base: 


3; Routine Size: 4 words, 
2 words 


; Maximum stack depth per invocation: 










SEQ 0110 


VAX-11 Page 


USER$1: 
H 
i SP,* 


Phi 9-16 V4 15 
AZTEC. eoRce eC IZRCFC2. B16;1 (6) 


1838 








ee G+ ee G+ GF Ge Ge GF Ge Ge 
ath 
we 

NON ho ee ho ee 


000000 000207 


: Routine Size: ; : 
; Meximum steck depth per invocation: 0 words 


000000 004767 
000004 104461 
000006 000207 


3; Routine Size: 


; Maximum stack depth per invocation: 2 wor 










H9 


SEQ 0111 
MISCELLANEOUS alae 27-Mar-1985 15:23:34 11 Bliss-1 Page 16 
AUTODROP SECTION 11-Jan-1985 08:19:19 USERS: CA ZTEC. CZRCFCIZRCF C2. B16;1 (7) 


Sebttl "AUTODROP SECTION’ 


: “THIS tone Sy EXECUTED er at AFTER THE INITIALIZE CODE IF 
THE " LAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED T0 
: SEE IF PO TMEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 
! DROPPED FROM TESTING. 





BGNAUTO; 
return 
ENDAUTO; 
.SBTTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC 
1 word, Routine pane AASCODE + 1136 


-SBTTL L$AUTO AUTODROP SECTION 
PC ,LAUTO 


177772 L$AUTO:: JSR 
, RTS PC 
4 words, Routine ce AASCODE + 1140 





s 
w 
MPP Poffo fff no fone ee ee 


; Routine Size: F . 
; Maximum steck depth per invocation: 


000000 004767 


000004 104412 
000006 000207 


s Routine Size: . : 
; Maximum stack depth per invocation: 












19 


MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 X-11 Bliss-16 V4.0-579 et oo 17 
CLEANUP CODING SECTION 11-Jan-1985 08:19:19 ER$1:(AZTEC. CZRCRCIZRCFC2, B16;1 (8) 


Sebttl ‘CLEANUP CODING SECTION’ 
" THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED © 
! AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


GNCLN 
seh ti = ZERO; ! TURN OFF THE CLOCi 


ZERO; ! CLEAR ERROR ROUTINE 
Pe = ZERO; ! PARAMETERS P1 - P6 
P3 = ZERO; 


v 
fe 
Sennen 
‘Seu 
» 
+ 


RET “STATUS = ZERO; ' CLEAR STATUS AND 
NUM gRETRIES 2 ZERO: ! FLAGS 
RETRIES = 
FN.BOUND * FALSE; 1 VER:C 
return; 
ENOCLN; 

y ine awe: CLEANUP CODING SECTION 
0000006 LCLEAN: CLR acLkK.CSR 3 1860 
000000G CLR 1 ; 1861 
000000G CLR P2 : 1862 
000000G CLR P3 : 1863 
000000G CLR P4 ; 1864 
000000G CLR PS : 1865 
000000G CLR P6 ; 1866 
000000G CLR RET. STATUS ; 1867 
000000G CLR NUM.RETRIES ; 1868 
000090G CLR RETRIES ; 1869 
000000G CLR IN. BOUND 3 1870 

RTS $ 1853 
23 words, Routine Base: AASCODE + 1150 

words 


SBTTL LS$CLEAN CLEANUP CODING SECTION 


177716 L$CLEAN:: 
JSR PC,LCLEAN 
TRAP 12 
RTS PC 
4 words, Routine Base: AASCODE + 1226 
2 words 





JI 








ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0 
v03.0 DROP UNIT SECTION 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFe IZRCFC2, B16;1 
; 1873 } Sebttl ‘DROP UNIT SECTION’ 
: 1875 1 THE DROP - UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3 1876 1 TO NO LONGER BE TESTED. 
3 1877 1 
3 1878 2 BGNDU; 
3 1879 2 return; 
: 1880 1 ENDDU; 
.SBTTL LOU DROP UNIT SECTION 
000000 000207 LOU: RTS PC 
; Routine Size: 1 word, Routine Bese: AASCODE + 1236 


3; Maximum stack depth per invocation: 0 words 


-SBTTL L$DU DROP UNIT SECTION 
PC,LDU 


000000 004767 177772 L$DU:: JSR 

000004 104453 TRAP 

000006 000207 RTS PC 

; Routine Size: 4 words, Routine Base: AASCODE + 1240 


: Maximum steck depth per invocation: 2 words 








SEQ 0113 18 
an (9) 





K9 





ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-579 ny 4 19 
v03.0 ADD UNIT SECTION 11-Jan-1985 08:19:19 USER$1:(AZTEC.CZRCFCJZRCFC2.616;1. (10) 
3 108 : Ssbttl ‘ADD UNIT SECTION’ 
: 1883 1 ' THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
3 1884 1 ! TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
: 1885 1 ' TO THE TEST CYCLE. 
3 1886 1 !. 
8 1887 2 BGNAU; 
F 1888 2 return; 
3 1889 1 ENOAU; 
-SBTTL LAU ADD UNIT SECTION 
000000 000207 LAU: RTS PC 3 1880 
: Routine Size: 1 word, Routine Base: AASCODE + 1250 
; Meximum stack depth per invocation: 0 words 
-SBTTL L$AU ADD UNIT SECTION 
000000 004767 177772 L$AU:: JSR PC,LAU 3 1888 
000004 104452 TRAP S2 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: AASCODE + 1252 


; Maximum stack depth per invocation: 2 words 


: 1890 1 !<BLF /PAGE> 





ee ef @e Ge Ge Ge Ge Ge Ge G+ Ge Ge 
PPO P0 bh ee 


3: Routine Size: 
3; Meximum steck 


ee Ge Ge Gt Gs Ge Ge Gs G6 Ge Gs Ge Ge Gs Gs Gt Ge Gs Gs Gs Ge Ge Ge Os 


—MWNVUWS & BWUUWUUUWOPO foul Re eee 





L9 


MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 
ADD UNIT SECTION 11-Jan-1985 08:19:19 
psect 


code = ABSCODE; 


rs 
' GLOBAL LOCATION “I_AM_NEX” IS SET TO TRUE WHICH INDICATES 
11 THE INITIALIZATION “SEQUENCE INTERRUPT OCCURED. 


Pan (NXMI); 

M_NEX = 0°17 7777'; 
CANCEL _TIMER = o' 177977"; 
ENODSR 


V3 
-SBTTL NXMI ADD UNIT SECTION 
.PSECT ABSCODE, RO 
177777 000000G NXMI:: MOV @-1,1.AM.NEX 
177777 000000G my @-1, CANCEL. TIMER 
7 words, Routine Base: ABSCODE + 0000 


depth per invocation: 0 words 


See 


‘ ae CLOCK INTERRUPT SERVICE ROUTINE IS ENTERED AT THE CLOCK RATE 


BGNSRV (CLK_INT ais 


TICKS = . TICKS ' INCREMENT THE NUMBER OF TICK 
if .TICKS eqlu .CLK_HERTZ ' IF TOTAL NUMBER OF TICK = 60 
then ' THEN 
n 
meee 1 RESET TICK TO ZERO 


SECONDS - - SECONDS + 1; 
if .SECONDS eaqlu 60 
then 


IF SECOND = 60 
THEN 


begin 
SEFONDS = 0; ! RESET SECOND 10 ZERO 
MINUTES = .MINUTES + 1; i INCREMENT THE MINUTES 
end; 
end; 
ENDSRV; 
“SBTTL CLK.INT.SERV ADD UNIT SECTION 
0000006 CLK INT. SERV: ; 
INC | TICKS 
0000006 0000006 CHE TICKS, CLK. HERTZ 
0000006 CLR sOTICKS 


liss-16 V4,0-57 
AZTEC.CZRCFC JZRCFC2.616;1 


INCREMENT THEN SECOND 


000044 000002 1$: 


: Routine Size: 19 words, : 
; Maximum steck depth per invocetion: 0 wor 


RTI 


M9 


27 -Mer - 1985 
11-Jan-1985 


SECONDS 
es 


SECONDS 
MINUTES 


Rout ine poe ABSCODE + 0016 





:34 


1 


; SEQ 0116 
VAX-11 Blies-16 V4.0-579 age 21 
USER$1:([AZTEC.CZRCFC JZRCFC2.616;1 © (11) 
’ 1915 
$ 1917 
’ 1920 
3 1921 
3 1908 





erry perce N9 
SEQ 0117 
MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 ege 22 
FIND CLOCK ROUTINE 11-Jen-1985 08:19:19 USER$1:(AZTEC. CZRCEC IZRCFC2. B16;1 (12) 
i Sebttl ‘FIND CLOCK ROUTINE: 
: poe routine FIND_CLOCK : novelue « 
i #CHECK TO MAKE SURE THERE IS A CLOCK ON THE SYSTEM. IF NO_CLOCK, ABORT TO 
i tOTMERUISE, “DETERMINE WHETHER CLOCK IS AN L OR P CLOCK, GET 17S PARAMETERS. 
e F begin 
2 CLK_TYPE = NO_CLOCK; 'SET FLAG FOR NO CLOCK 
3 ae CLOCK (P, CLK_ADR) 11S THERE A P_CLOCK? 
3 begin 
z TYPE a CLOCK 'SET THE FLAGE ah or P_CLOCK 
3 et 'SAVE THE CSR ADDRESS 
3 CLK_ “HERTZ : c“euK. DR + 6); 'GET THE CLOCK Meare 
3 CLK START = ag Tbs? 'SAVE THE STARTTING CLOCK VALUE 
e 
2 else 
; begin 
4 if c CLOCK (L, CLK_ADR) 'IS THERE AN L_CLOCK? 
4 eres 
4 TYPE *L CLOCK 'SET THE FLAG on L_ CLOCK 
4 CLK .CLK ‘SAVE THE CSR A DRESS 
4 CLK" “GeRr? :, CLK. DR + 6); 'GET THE CL rE 
4 CLK-START = as" 100 'SAVE THE LO RRTING CLOCK VALUE 
H end; 
$ end; 
2 if CLK_TYPE nequ NO_CLOCK ‘IF CLOCK WAS FOUND THEN 
n 
3 begin 
3 VEF_AD = .(.CLK_ADR + 4); IGET CLOCK VECTOR ADDRESS 
3 SETVEC (.VEC_AD, CLK_INT_SERV, PRIOS); !SET VECTOR & SERVICE ADDR. 
$ 
2 
1 end; 
.SBTTL FIND.CLOCK FIND CLOCK ROUTINE 
005067 0000006 FIND.CLOCK:: 
CLR CLK. TYPE ; 1936 
012700 000120 MOV 0120,R0 i 1938 
104462 TRAP = 62 
103016 BHIS $ 
7 Vv RO,CLK.ADR ; RO,* 
012767 000001 0000006 MOV 61,CLK. TYPE : 194) 
011067 MOV (RO), CLK.CSR ; CLK.ADR,« 1942 
016067 000006 0000006 MOV at CLK. HERTZ ; 1943 
012767 000105 0000006 MOV 0105,CLK, START ; 1944 
000421 BR 2$ ; 1938 
012700 000114 1s: MOV 0114,R0 ; 1949 
104462 62 





SCELLANEOUS SECTIONS 
ROUTINE 


000006 000000G 
000100 0000006 
000000G 


3; Routine Size: 





B10 


27-Mer-1985 15: 
11-Jan-1985 08: 


0,- ) 
#CLK INT. SERV, -( SP) 


VEC. AD, (SP) 
3.-(SP) 


210, SP 
PC 


Routine — ABSCODE + 0064 


3; Maximum steck depth per invocation: 





99-16 579 
rE. CZRCFCIZRCF C2. B16;1 









C10 





SEQ 0119 


ZRCFR2 MTSCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 X-11 Bli Page 24 
vo3.0 CLOCK INIT ROUTINE 11-Jen-1985 08:19:19 User $1: (AZ TEC. te ORCEC IZRCFC2, B16;1 (13) 
: 136° : Ssbttl ‘CLOCK INIT ROUTINE’ 
3 
. a global routine CLOCK_INIT : novealue * 
3 1972 1 T es 
8 1973 1 tINIT CLOCK 
F 1974 i , 
3 1975 1 : 
3 1976 2 bepin 
3 1977 2 .CLK re = ZERO; ! STOP THE CLOCK 
: 1978 2 TICKS = ! CLEAR THE COUNTER 
3 1979 2 SECONDS : Qs 
3 1980 2 MINUTES = 
3 1981 2 — _CSR . CLK START; ! START THE CLOCK 
3 1982 1 
-SBTTL CLOCK.INIT CLOCK INIT ROUTINE 
000000 005077 000000G CLOCK. INIT:: 
CLR acLK.CSR 
005067 000000G CLR TICKS 
000010 005067 000000G CLR ECONOS 
000014 005067 000000G CLR MINUTES 
000020 016777 000000G 000000G MOV CLK.START,@CLK.CSR 
000026 000207 RTS PC 
: Routine Size: 12 words, Routine Base: ABSCODE + 0250 
; Maximum stack depth per invocation: words 


3 1983 1 





ZRCFR2 
vo3.0 


000000 004767 
000004 104423 
000006. 000207 


; Routine Size: 
3; Meximum steck 


Se Se St SS GH Se Gt Ge Ge GF Ge Ge Ge GS Gs Ge GH Ge Ge St Ge Gs Gs Ge St Ge Gt Ge Gs Se Gs Gs GF GS Ge Os Ge Ge Gs GF Os oF o¢ 





1984 
1985 





1 
1 


AAA GIP PPP POPPE POP NON Po PoP Noo Po Po Po fo foo fo foo ope fo fofolforefolofofory 





D10 


:34 AX-11 Bliss-16 sa ay 25 


MISCELLANEOUS SECTIONS 27-Mar-1985 15:23 579 Page 
7:19:19 USERS: (AZTEC. CZRCECIZRCFC2. B16;1— (14) 


RC25 CONTROLLER ERROR REPORTING 11-Jan-1985 08: 


Ssbttl 'RC2S5 CONTROLLER ERROR REPORTING’ 
BGNMSG (RC2S$SERR_RPT); 


-SBTTL RC25S$SERR.RPT RC25 CONTROLLER ERROR re 


000000V RC25SERR.RPT:: 
JSR PC .M$RC25$ERR.RPT ; 1985 
TRAP 23 
RTS PC 

4 words, | Routine Base: ABSCODE + 0300 

depth per invocation: 2 words 


FUNCTIONAL DESCRIPTION: 
THIS ROUTINE i CALLED BY it DIAGNOSTIC SUPERVISOR VIA 
THE “PRLINK” ARGUMENT SPECIFIED IN THE $DS_ERRXXX MACRO 
TO REPORT DETAILED RC 25 CONTROLLER ERRORS. 


FORMAL PARAMETERS: 


PRINT SUPPLEMENTAL ERROR INFC 


é 

‘ 

i 

H 

H 

H 

H 

H 

J 

' Pl - POINTER TO FORMATED ERROR MESSAGE. 

' P2 - FIELD REPLACEABLE UNIT CALL-OUT MASK. 
‘ P3 - RC_25 CONTROLLER REGISTER PRINT-OUT MASK. 
‘ P4 - DATA, 

' PS - DATA 

' P6 - DATA 

' 

! IMPLICIT INPUTS: 

‘ RET_STATUS 

J . 

{ IMPLICIT OUTPUTS: 

- NONE - 

! COMPLETION CODES: 

' - NONE - 

J 

! SIDE EFFECTS: 

‘ - NONE - . 
: 

H 

H 


if .P1 neqe 0 ! IF ER ¥ MESSAGE POINTER 
then ! ISN'T 0, THEN PRINT-OUT 
begin 


if ,P_MASK eqlu 3 then PRINTB (.P1, .P4, .P5, .P6); ! SUPPLEMENTAL ERROR INFO. 
if .P_MASK eqlu 2 then PRINTB (.P1, .P6, .P4, .PS); 










E10 








MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0 ei 26 
0 RC25 CONTROLLER ERROR REPORTING 11-Jan-1985 08:19:19  USER$1:( AZTEC. CzRcre IZRCFC2. B16;1 (14) 
2029 3 
2030 3 if .P_MASK eqlu 1 then PRINTB (.P1, .P4); 
2031 3 
20 2 end; 
2033 2 
2034 2 if .P3 nequ 0 ! IF ELIGIBLE REGISTER(S) 
2035 2 n ! PRESENT, THEN PRINT- 
2036 2 PRINTB (FMT3, .PE, .P3); ! SELECTED CONTROLLER 
2038 2 ! REGISTER(S). 
2039 2 ' 
2080 2 ! PERFORM FIELD REPLACEABLE UNIT CALL -OUT 
2042 2 tif .P2 neau 0 ! IF ELIGIBLE FRU CALL-OUT(S) 
2043 2 ‘then ! PRESENT, THEN PRINT-OUT 
2044 2 PRTSERU_ CALLOUT (.P2); ! FEILD REPLACEABLE UNITS. 
2045 2 § CLEAR ALL PARAMETERS 
2046 2 = ZERO; 
2047 2 pe = ZERO; 
2048 2 P3 = ZERO; 
2049 2 P4 = ZERO; 
2050 2 PS = ZERO; 
2051 2 P6 = ZERO; 
2052 1 ENDMSG; ! END OF ROUTINE: 
.SBTTL MS$RC25$ERR.RPT RC25 CONTROLLER ERROR REPORTING 
005767 0000006 MSRC25$ERR.RPT: 
ist P1 : 2022 
126727 0000006 000003 CMPB Ss P MASK, 03 . 
00101 BNE 
016746 0000006 MOV P6,-(SP) 
016746 0000006 MOV PS, -(SP) 
016746 0000006 MOV P4, -(SP) 
016746 0000006 MOV P1,-(SP) 
012746 000004 MOV 04,-(SP) 
610600 MOV SP,RO 
104414 TRAP = 34 
062706 000012 ADD #12,SP 
126727 0000006 000002 1$: CMPB sé MASK, @2 
001016 BNE 23 
016746 0000006 MOV PS,-(SP) 
016746 0000006 MOV P4,-(SP) 
72 016746 000000G MOV P6, -(SP) 
76 016746 0000006 1,-(SP) 
102 012746 000004 MOV ; =(5P 
010600 MOV P 
110 104414 TRAP 
112 062706 000012 ADD #12,SP 
116 126727 0000006 000001 2%: CMPB Ss PC MASK, 1 
124 001012 BNE 33 
126 016746 0000006 MOV P4,-(SP) 
132 016746 0000006 MOV 1,-(5P) 
012746 000002 MOV #2,-(SP) 
142 010600 MO ‘ 
104414 TRAP i 








; Routine Size: 
; Maximum stack 


MISCELLANEOUS SECTIONS 


RC25 CONTROLLER ERROR REPORTING 


000006 
0000006 


000000G 
000000G 
0000006 
000003 


86 words, Routine Base: 
7 word 


depth per invocation: 


3$: 


4$: 


ABSCODE + 0310 











F10 


SEQ 0122 


27-Mar-1985 15:23:34  VAX-11 Bliss-16 Page 27 
$1: (A oe (14) 


| 16 _V4.0-57 
11-Jan-1985 08:19:19 USER ZTEC.CZRCFC JZRCFC2.616;1 


P3 ; 2034 
2036 





#10,SP 
P2,-(SP) 
ee 


Se Se Se St SE Se Ge St Ge GF GF GH GF GF GF GF GE GS GS GS SF Ge GF GH Ge GE Ge Ge GE Gs GF Ge Gs Ge Ge Ge Ge Gs GF GF SS Ge GS Se OF Se OF Ge Ge Oe Gs Ge Os Gs Oe 6% oo 


AIAG G8 GE 8 BE GE GE G8 G8 GE GETS GEO PDN NO NO NO NO NO N10 NM NO NO ND tt ee ee te ee ee ee en et ee ew ew ee Re ee Bee ee pee ew fw few fo pew Po pe 


M LLANEOUS SECTIONS 
Tec REPLACEABLE UNIT REPORTING 


Ssbttl ‘FIELD REPLACEABLE UNIT REPORTING’ 
globel routine PRT#FRU_CALLOUT (FRUSMASK) : 
FUNCTIONAL DESCRIPTION: 





27-Mar-1985 
11-Jan-1985 


G10 


5:23:34 
8: 


VAX-11 Bhis 16 V4, 
19:19 AZ C 


1 9-16 V 
0 USER$1: (AZTEC. CZRCF 


novelue * 


THIS ROUTINE REPORTS FIELD REPLACEABLE UNITS WHICH ARE 
DEEMED ELIGIBLE FOR PRINT-OUT BY THE FAILING TEST. 


a 
oy 
a 
{ FORMAL PARAMETERS: 
FRUSMASK m 
IMPLICIT INPUTS: 
' - NONE - 
7 
{ IMPLICIT OUTPUTS: 
: - NONE - 
' 
! COMPLETION CODES: 
4 - NONE - 
‘ 
! SIDE EFFECTS: 
4 - NONE - 
7 
begin 


local 
FRUSMSG; 


f 

‘ PERFORM FIELD REPLACEABLE UNIT CALL-OUT 
a 

incru FRU_SELECT from 0 to 3 do 


if BIT_TST (.FRUSMASK, 1¢.FRU_SELECT) 
then 
begin 
selectu 1t.FRU_SELECT of 
set 
[ADAPT] : 
FRUS$MSG = ADAPTO; 


(CONTR) : 
FRUSMSG = CONTRO; 


(DRIVE) : 
FRUSMSG = DRIVE_; 





FIELD REPLACEABLE UNIT CALL-OUT MASK, 


ALLOCATE STORAGE FOR 
POINTER TO FRU MESSAGE. 


CHECK EACH FRU FOR 
POSSIBLE CALL-OUT. 


IF oe FRU ELIGIBLE 
FOR PRINT-OUT THEN GET 
POINTER TO FRU MESSAGE. 
SELECT FRU FROM ONE OF 
THE FOLLOWING: 

GET ASYNC FRU MESSAGE. 
GET SYNC FRU MESSAGE 


GET ARR_DAT FRU MESSAGE 


0-579 
Ci2RCFC2. B16;1 









H10 





SEQ 0124 


ZRCFR2 MISCELLANEOUS SECTI 27-Mar-1985 15:23:34  VAX-11 Bliss-16 V4.0-57 P 
cee 6 FIELD REPLACEABLE UNIT REPORTING 11-Jan-1985 08:19:19 | USER$1:(AZTEC.CZRCFCJZRCFC2.616;1. ove 45) 
2110 3 
alll 3 (MECH) : 
2112 3 FRUSMSG = MECHAN; ! GET MEM_ARR FRU MESSAGE 
2113 3 tes; ! PRINT FRU CALL-OUT. 
2115 3 PRINTX (FRU, .FRUSMSG, .UNIT); 
2116 2 end; ! END OF ROUTINE: 
2118 1 end; § ‘PRT#FRU_CALLOUT’. 
.SBTTL PRTS$FRU.CALLOUT FIELD REPLACEABLE UNIT REPORTING 
000000 004167 0000006 PRTS$FRU.CALLOUT:: 
JSR R1, $SAVE3 ; 
000004 005002 CLR R2 ; FRU.SELECT 
012746 000001 1$: MOV #1,-(SP) ; 
000012 010246 MOV R2,-(SP ; FRU.SELECT,« 
000014 004767 0000006 JSR PC, BL$SHF 
010001 V 
000022 005726 TST > 
000024 016600 000014 MOV 14(SP),RO ; FRUSMASK,« 
000030 005100 COM RO 
000032 1 BIC 
000034 012716 000001 MOV #1,(5P) 
010246 MOV R2,-(SP) ; FRU.SELECT,« 
000042 004767 0000006 JSR PC, BL$SHF 
000046 022626 CMP (SP)+,(SP)« 
000050 020100 CMP R1,RO 
000052 001044 BNE 6$ 
000054 012746 000001 MOV #1,-(SP) : 
000060 010246 MOV R2,-(SP) ; FRU.SELECT,* 
000062 004767 JSR PC. BL$SHF 
020027 000001 CMP ‘01 F 
000072 001002 BNE 23 
000074 012703 0000006 MOV OADAPTO,R3 ; *,FRUSMSG 
000100 020027 000002 2: CMP RO, #2 ; 
000104 001002 BNE $ 
000106 012703 0000006 MOV @CONTRO,R3 ; *,FRUSMSG 
000112 020027 000004 3$: CMP RO, 04 - 
000116 BNE 
000120 012703 0000006 MOV ODRIVE. ,R3 ; *, FRUSMSG 
000124 020027 000010 4$: CMP RO,? . 
000130 BNE 
000132 012703 0000006 MOV @MECHAN, R3 ; *,FRUSMSG 
136 016716 0000006 S$: MOV UNIT, (SP) ; 
142 010346 MOV P ; FRUSMSG, « 
144 012746 0000006 MOV RU, -( SP) 
150 012746 000003 MOV #3,-(SP) 
154 010600 MOV SP,RO » SP,e 
156 104415 TRAP =—s-15 
160 062706 000012 ADD 912,SP , 
164 005202 6$: INC R2 ; FRU.SELECT 
020227 000003 CMP R2, 03 ; FRU.SELECT,« 
172 101705 BLOS 18 
174 000207 R C 
; Routine Size: 63 words, Routine Base: ABSCODE + 0564 








ZRCFR2 MISCELLANEOUS SECTIONS 
v03.0 FIELD REPLACEABLE UNIT REPORTING 


; Maximum stack depth per invocetion: 11 words 


5 «aay & 


I10 


27-Mar-1985 15:23:34 
11-Jan-1985 08:19:19 





VAX-1 
USER$ 


18 
1:[ 


liss-16 V4, 
AZTEC .CZRCF 


0-57 
CIJZRCFC2.B16;1 


S€0,0125 
09 15) 





J10 





SEQ 0126 


ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 X-11 Bliss-16 V4.0-579 P 
v03.0 AZTEC INITIALIZATION 11-Jan-1985 08:19:19 USERS PAL TEC. CZRCECJZRCFC2.B16;1 martt S| 
: 2120 i Ssbttl ‘AZTEC INITIALIZATION’ 

: 

; elee 1 global routine AZT_INIT = 

: el23 1 Y ee 

: sigs : : FUNCTIONAL DESCRIPTION: 

H . 

: 2126 1 ! THIS ROUTINE FIRST STARTS AZTEC INIT BY WRITING TO ACIP. 

; ele? 1 H THEN EXPECTS TO READ STEP 1 BIT IN RCSA TNOTLAT ING THAT 

; e128 1 ! THE PORT IS READY TO ACCEPT STEP 1 at DATA, | 

; 2129 1 ! STEP READ DATA WAS THEN WRITES STEP 1 WRITE BAT TO RCSA 
: 2130 1 : THEN WAITS TO READ STEP 2 BIT IN Resa ya PROCESURE OF READ 
: Same & H FOLLOWED BY WRITE IS DONE AS GIVEN BY A, ASK, 

; else 1 ! IF THERE WAS ANY PORT FATAL ERROR IN ANY OF THE STEPS 

>; 2133 1 H THEN THE FAILURE DATA OF RCSA IS PRESERVED ANF FURTHER 

:; 2134 1 ! STEPS ABORTED. 

» 2a & ' THIS ROUTINE WILL BE USED ONLY IF INTERRUPT WAS ‘ENABLED 

$ oixé : : IN STEP 1 WRITE. 

3 2138 i ! FORMAL PARAMETERS: 

:; 2139 1 Hy 

:; 2140 1 ! - NONE - ° 
Fy 2141 1 $ 

; 2142 1 ! IMPLICIT INPUTS: 

$ 2143 1 H 

3 2144 1 H DATA1 = STEP 1 WRITE DATA 

>; 2145 1 H DATA2 = STEP 2 WRITE DATA 

3 2146 1 H DATA3 = STEP 3 WRITE DATA 

3 oite : DATA4 = STEP 4 WRITE DATA 

; 2149 1 : B_MASK = WITCH STEPS WILL BE DONE 

: 2150 1 H 60 1 = STEP 1 

. aon me H 60 j = STEP 1,2 

: e152 1 H 60 7 = STEP 1,2,3 

; 2153 1 H #017 = STEP 1,2,3,4 

; 2154 1 : 

$ tH : : IMPLICIT OUTPUTS: 

3 2157 1 H IF — a NO STEP IT WILL RETURN 

>; 2158 1 H P1-P6 

; 2159 i ! COMPLETION toot s: 

: cieh : : RET_STATUS RETURNS COMPLETION CODE. 

: 2163 1 * SIDE EFFECTS: 

; 2164 1 ' 

:; 2165 1 ' - NONE - 

; 2166 1 $ -- . 

s 2167 2 begin 

3 2168 2 

; 2169 2 locel 

Fy 2170 2 ,. ° 'STEP NUMBER 

Fy 2171 2 MASK, 'STEP MASK 

; el72 2 COUNT, 'TIME OUT COUN 

$ 2173 . DATA: 'WRITE DATA LOR THE STEP 
$ 

3 2 

3 2 


‘ 
! INIT THE AZTEC 


— 





ZRCFBR2 
vo3.0 


[— 


Se SF SE Se Se ae Se Se Se SE SE SF SE SF SF SF SF Gs SF GF SF GF Ge SF SF GF SF OF OF GE Gs GF OF OF OF Os GF GF GE OF Ge Gs OF SF Gs Gs OF OF OF Os Os Os Os Os 6 Oe OF 
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SEQ 0127 
= SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss- 579 P 32 
AETEECINITSALISATION 11-Jan-1985 08:19:19 USER$1: AZTEC CZRCECIZREFCE. B16;1 0 (16) 
7 
I_AM_NEX = ALL_ONES; ! INIT INTERRUPT FLAG 
ty 


! THE FOLLOWING LOOP WILL DO STEP 1 THRU 4 AS GIVEN BY B_MASK 
! INPUT SELECTING APPROPRIATE DATA INPUT FOR STEP WRITES. IF 
| Enon IN SA_REGISTER P1 - P4 AND P_MASK WILL BE SUPPLIE 


D FOR 
REPORT. CNLY SA DATA FOR THE FINAL WRITE STEP IS PRESERVED. 


ieiypcaSe ee, ALL_ONES) + START INIT 
L 
DELAY ‘ i WAIT FOR COMPLETION 
incru N from 0 to 4 do 
begin 
if (.N eqlu 0 or BIT_TST (.B_MASK, .MASK)) ! TEST FOR STEP NUMBER 
then : 
begin 
selectoneu .N of § SELECT CORRECT WRITE 
set H 
{0) : 
DATA = ALL_ONES; H 
aa DATA = ,DATAI; ! DATA FOR STEP WRITES 
{2) : 
DATA = ,DATA2; 
(3) : 
DATA = .DATA3; 
my i DATA = .DATA4G; 
tes; 





if .N gequ 1 then WRT_RC25 (RCSA, .DATA); ! STEP N WRITE DATA TO SA 


incru COUNT from 0 to 20 do ! TIME OUT WAIT LOOP 
DECAY (333); ! DELAY 1 SEC. APPROX, 
if ,I_AM_NEX eqlu ALL_ONES then exitloop; 
BREAK ; ! WATCH FOR CONTROL C. 
end; 
: -I_AM_NEX eqlu ALL_ONES | ! IF INTERRUPT OCCURED ? 
en 


begin 
DELAY (2); 








eas L10 
ZRCFRS MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 1 Bliss ag 
vo3 AZTEC INITIALIZATION 11-Jen-1985 08:19:19 VeeRii: PALTEC. CORCELIZRCFC2. B16;1 (16) 
RC25_DATA (RCSA, RC_ALL) = .RC25_ADOR (RCSA, RC_ALL); 1! STEP N READ 
if .N nequ 0 then MASK = .MASKTI; ! INCREMENT STEP 
I_AM_NEX = ZERO; 
oe (RCSA, RCSA_ER) nequ ZERO) ! IF SA REGISTER CONTAINS 


begin 
RET_STATUS = PFE_CODE; ! FATAL ERROR 
exitloop; 
end 
else 
begin 
if (.RC25_DATA (RCSA, RCSA_STEP) nequ .MASK) ' ERROR OR INCORRECT STEP 
then 


! SUPPLY P1 THRU P6 AND 


Pa = (ORC2S_ ADDR) + 2; 
pS s RC2S. Bava’ trcsa’ RC_ALL); 


return RET “STATUS; ' TRUE STATUS. 
end; 


end; 


end 
else 


begin 
REY STATUS © CTO.CODE; 
exitloop; 
end; 
end; 
end; 


if ,RET_STATUS 
then 


IF YOU GET HERE PORT 
FAILED TO INTERRUPT 
WITHIN TIME ALLOWED 


IF STATUS WAS A FAILURE 


ha al SUPPLY P1-P6 
! FOR TEST MODULE TO 
! REPORT ERROR 


v 
amo 
b ty 
pnk 
=z 
an 
w 
joe 
ee 


pa = CoRC2$. ADDR) « 2 

= (, ° 23 

PS = .RC25_ BATA (RCSA, RC_ALL); 
P6 = _MASK; 

MSGADR = MSG 144 

return .RET_ STATUS; 

end 


else 
return RET_STATUS = PAS CODE; 


OTHERWISE GOOD STATUS 


Se Ge Ge GF Ge Ge Ge Ge Ge SF Gs Ge OF GF Gs Ge OF GF BF Ge GE Gs Ge Gt GF GE GF GF SF SF GF GF GF OF GF Gs Gs OF Gs GF OS OF GS GF Os Os OF Se Os OF Os Os 6s Os Os Os oe 
PY 
Ww 

MVD AUUMUUUUUUINR NDR WW & & UI BUI ® ss I IN Nn SPRAUPADDADUISNUIVVIGIW 


i 











em —— 
js : ’ £0 0129 | 


ZRCFRO MISCELLANEOUS SECTIONS 27 -Mer - 198° 23:34 VAX-11 Bliss-16 V4.0-57 age 34 
v03.0 AZTEC INITIALIZATION 11-Jen-1985 06:19:19 USER$1: (AZTEC. CZRCEe IZRCF C2. Bi6;1 (16) 
:; e291 1 end; 


-SBTTL AZT.INIT AZTEC INITIALIZATION 
004167 0000006 oathoateday 


Ri, $SAVES ' 2122 
024646 CMP -(§P), -(5P) 
012767 177777 0000006 MOV @-1,1.AM.NEX F 2178 
012704 000001 MOV 01,84 ; ¢,MASK 2186 
012700 177777 MOV @-1,R0 ; @.RCH.REG 2187 
010077 0000006 MOV RO, @RC25. ADDR  RCH_REG, © 
012701 000002 MOV 02,R1 + ©, $$TMP2 2188 
001411 1s: BEQ 4s 
016700 0000006 HOV LSDLY,RO ; ©, $$TMP1 
001404 BEQ 3$ 
000002 28: CLR 2(SP) ; $$TMP 
300 DEC Pr) ; $$TMPL 
001374 BNE 23 
301 3$: DEC Al ; $$TMP2 
000766 BR 1$ 
005005 4s: CLR RS ; N 2190 
005705 S$: TST R5 ; N 2193 
001412 BEG 6s 
156700 0000006 BIS8 8.MASK,RO 
010401 MOV R4,R1 3; MASK,¢ 
005101 COM Ri 
100 BIC R1,RO 
CMP RO.R4 ; #, MASK 
001402 BEQ 6$ 
000167 000420 JP 26% 
001003 BNE 73 ; 2201 
012702 177777 MOV @-1,R2 ; @,DATA 2202 
000427 BR 11$ ; 2198 
7 000001 7$: CMP RO, 01 ; 2204 
001003 BNE $ 
016702 0000006 MOV DATAL,R2 ; @,DATA 2205 
000421 BR 118 ; 2198 
020027 000002 BS: CMP RO, 02 ; 2207 
001003 BNE $ 
016702 0000006 MOV DATA2,R2 ; *,DATA 2208 
000413 BR 118 ; 2198 
020027 000003 94: CMP RO, 03 ; 2210 
001003 BNE 108 
016702 0000006 MOV DATA3,R2 ; @,DATA 2211 
000405 BR 11$ ; 2198 
020027 000004 10$: CMP RO, 04 ; 2213 
001002 BNE 118 
016702 0000006 MOV DATA4,R2 ; *,DATA 2214 
005705 118; ‘1ST RS ; N 2219 
405 BEQ 12$ 
010201 MOV R2,R1 ; DATA,RCM.REG 
016700 0000006 MOV RC2S ADOR, RO 
010160 000002 MOV Ri ,2(RO) ; RCM.REG, © 
005003 12$: CLR R ; COUNT 2221 
012701 000515 13$: MOV 0515,R1 ; ©, $$TMP2 2223 








EE 


SEQ 0130 
MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Bliese-16 V4.0-579 P 
AZTEC INITIALIZATION 11-Jan-1985 08:19:19  USER$1: (AZTEC. CZRCFCJZRCFC2.816;1 meattt s) 
14$; BEQ 17$ 
0000006 HOV L$DLY,RO + ©, $$TMPY 
000002 15$: CLR 2(SP) ; $$TMP 
DEC RO 3 $$TMPL 
BNE 158 
168 DEC i + $$TMP2 
BR 148 
0000006 177777 178: CMP 1.AM.NEX, 0-1 : 2225 
BEQ 18% 
Inc kg COUNT 
F 2221 
000024 CH RS. 026 ; COUNT, 
0000006 177777 188: cre T.AM.NEX, 0-1 : 2230 
000002 MOV 62,R3 ; ©, $$TMP2 2233 
19%:  BEQ 22% 
0000006 HOV LSDLY,RO ; *,$$TMPL 
000002 20s: CLR 2(SP) : $$TMP 
DEC RO ; $$TMPI 
BNE 208 | 
2i$: pct ae 3; $$TMP2 
0000006 22$: MOV hess. ; ADDR RO : 2234 
000002 MOV 2¢RO (SP ; *,RC.REG 
0000026 MOV esp). ah $E DATAs2 ; RC.REG,« 
TST R5 ; N 2236 
BEQ 23s 
ASL Ra ; MASK 
0000006 23s: CLR 1. AM, NEX ; 2238 
100000 0000026 eit $100000,RC25.DATA+2 : 2240 
000021 0000006 MOV 621,RET. STATUS : 2243 
243 pov fae ; MASK sone 
: a .* 2249 
0000026 MOV RC25. DATA+2,R0 
ASR RO 
ASR RO 
ASR RO 
SWAB =—s- RO 
177760 BIC 0177760,RO 
CMP RO,R1 
BEQ 268 
000002 0000006 MOVB  2,P.MASK : 2 
0000006 MOV OFMT3,P} : 2253 
000001 0000006 MOV 1,P2 : 2254 
0000006 MOV R25. ADOR RO ; 2255 
000002 ADD RO 
0000006 MOV 
000002G 0000006 MOV Bie DATA+2,P5 , 2256 
MOV P6 ; MASK,* 2257 
MOV onsG 14, MSGADR : 2258 
000001 0000006 MOV 61,RET. STATUS ; 2259 
MOV RET. STATUS, RO ; 2251 








012767 
000406 


3; Routine Size: 
; Maximum steck depth per invocation: 


; 2292 1 


MISCELLANEOUS SECTIONS 
AZTEC INITIALIZATION 


000000G 25$: 


263: 


000011 
000004 


177314 
0000006 27$: 


000000G 283: 
29%: 


214 words, 


Routine Base: 
10 words 


Bil 


27-Mar-1985 15:23:34 
11-Jen-1985 08:19:19 


#11,RET. STATUS 
278 

RS 

R5, 04 

273 

S$ 

$1,RET. STATUS 
283 


#2,P.MASK 
OFMT3,P1 


#1,P2 

RC25. ADDR, RO 
#2,R0 

RO,P4 
RC25.DATA+2,P5 
R4,P 

@MSG. 14, MSGADR 
RET. STATUS, RO 
293 

RET. STATUS 
(SP)+,(SP)- 

PC 


ABSCODE + 0762 








SEQ 0131 


18 v4 Page 36 


.0-579 
ZRCFC )ZRCFC2.616;1 (16) 
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ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Blise-16 V ves” 
vO3.0 AZTEC INITIALIZATION BY POLING i-Jen-1985 08:19:19 USER#L:[AZTEC-CZRCFCIZRCFC2.616;1 (19) 
: 3298 1 sebtEL “AZTEC INITIALIZATION BY POLING’ 

; 

; 2295 1 global routine AZP_INIT « 

; 22% 1 se 

; 2397 1 — § FUNCTIONAL DESCRIPTION: 

; 2b 1 i 

; 2399 1 

; 2300 1 THIS ROUTINE FIRST STARTS AZTEC INIT BY WRITING TO RCIP. 

; 2301 1 THEN EXPECTS. TO READ STEP 1 BIT IN RCSA INDICATING THAT 

; 2302 1 THE PORT TS READY TO ACCEPT STEP 1 WRITE DATA. IF THE 

; 2303 1 i STEP READ OATA WAS OK THEN WRITES STEP 1 URITE DATA TO RCSA 
; 230 1 THEN WAITS TO READ STEP 2 BIT IN RCSA. THIS PROCEDURE OF READ 
; 2305 1 FOLLOWED BY WRITE IS DONE AS GIVEN BY B_HASK, 

; 230 1 IF THERE WAS ANY PORT FATAL ERROR IN ANY OF THE STEPS 

; Sor 1 THEN THE FAILURE DATA OF RCSA IS PRESERVED ANF FURTHER 

; 2308 1 STEPS ABORTED. 

; 3309 1 THIS ROUTINE DOES NOT USE INTERRUPTS AND STEP 1 WRITE DATA 
; 301} SHOULD NOT ENABLE INTERRUPT. 

a : 

; 3312 1 | FORMAL PARAMETERS: 

: e313 1 ¢ 

; 23a 1 i - NONE - 

s e315 1 2 

; 2316 1 © IMPLICIT INPUTS: 

; mira 

; 2318 1 DATAL = STEP 1 WRITE DATA 

; B91 DATA2 = STEP 2 WRITE DATA 

; 23201 =} DATAS = STEP 3 WRITE DATA 

; 811 DATAG = STEP 4 WRITE DATA 

a: Goa B_MASK = WITCH STEPS WILL BL DONE 

; Bee dt “0.1 = STEP 1 

; 2325 1 |} “0 3 = STEP 1,2 

; 23261 #0 7 = STEP 1,9,3 

Bet Y 8017 = STEP 1:2,3,4 

; 2328 1 

: 2829 1 | IMPLICIT OUTPUTS: 

; bl a IF ERROR OR NO STEP IT WILL RETURN 

; 2332 1° | P1-P6, P_MASK 

:. Bes 2 RET STATUS 

: 2584 1} COMPLETION CODES: 

: et RET_STATUS GIVES COMPLETION CODE 

; 2338 1. SIDE EFFECTS: 

; 2339 1 

; 2301 - NONE - 

; 2341 1 $ -- 

; 2342 2 begin 

s 2343 2 

; baa 3 locel 

; 2345 3 ; | 'STEP NUMBER 

; 2346 2 MASK, iSTEP MASK 

; 23a? 2 COUNT, ‘TIME OUT COUNT 

: 2343 2 DATA; iWRITE DATA FOR THE STEP 


— 








Dil 





IONS 27-Mar-1985 


SEQ a 
T 15:23:34 VAX-11 Bliss-16 
ION BY POLING 11-Jan-1985 08:19 


579 
:19 USER$1: [AZ TEC, CORCFCIZRCFC2. B16;1_ 998017) 
INIT THE AZTEC 


THE FOLLOWING LOOP WILL DO STEP 1 THRU 4 AS GIVEN BY B_MASK 
INPUT SELECTING APPROPRIATE DATA yt FOR STEP WRITES. IF 

ERROR IN SA REGISTER P1 - P4 AND P_MASK WILL BE SUPPLIED FOR 
ERROR REPORT. CNLY SA DATA FOR THE FINAL WRITE STEP 3 PRESERVED. 


“oat: tor eeT THIT 
DELAY (2); i WAIT FOR COMPLETION 


incru N from 0 to 4 do 
begin 


othe eqlu 0 or BIT_TST (.B_MASK, .MASK)) ' TEST FOR STEP NUMBER 
t 
begin 
selectoneu .N of : SELECT CORRECT WRITE 
set s 


{0) : 
DATA = ALL_ONES; : 


“ BATA = DATA; ! DATA FOR STEP WRITES 


{2) : 
DATA = .DATA2; 


(3) : 
DATA = .DATA3; 


[4] : 


DATA = .DATA4G; 
tes; 


q 
incru COUNT from 0 to 20 do ! TIME OUT WAIT LOOP 


DEPAY AY Y (33 ! DELAY 1 SEC. APPROX. 
RC25_ DATA tacsa, RC_ALL) = .RC25_ADDR [RCSA RC_ALL); 


if .RC25_DATA (RCSA, RCSA_STEP]) eqlu .MASK then exitloop; 
RET_STATUS = CTO_CODE; 
BREAK; 
end; 
if €,RC25_DATA (RCSA, RCSA_ER) nequ ZERO) =! IF RCSA ERROR BIT SET 
then 


by 


! WATCH FOR CONTROL C. 


Se SF SH SS SF SH BE HS GE SF GE GF GF Gt Ge GF SF GF SE GF SE Ge Gs SF Gs GF BE Ge GF GS Gs GF GF Os GF Gs OF SF Se OF Gt GF OF Ge Os Os Gs GF Gs 68 Os Oe Os 66 oe Os os 
sd 
w 
ae 
uw 


as) 
w 
~ 
~N 
VII EUS aPVUVUUVIVIVIVIUI S PaaS SaaS aaa LSLSALL|LLS A&W AWW lofoforfo 


begin 
RET. STATUS = PFE_CODE; ! THEN FATAL ERROR 





— 





E11 





| EQ 0 
ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Blies-16 579 "been ae 
vo3.0 AZTEC INITIALIZATION BY POLING [1-Jen-1985 08:19:19  USER#1:CAZTEC-CZRCFCIZRCFC2.B16,1 | °%*c495 


begin ! OTHERWISE, CHECK THE 
! STEP BITS. 


if c. RC25_DATA (RCSA, RCSA_STEP) Ten nn? 
the OR THEN SUPPLY 


P ae = 2; 
HT3 


2 ADAP 
Pa = (.RC25 AD 
Ss “ices. "oATAT Presi’ RC_ALL); 


Pp 
P6 s * 
MSGADR = MSG 14 ! AND RETURN 


return .RET. STATUS; + TRUE STATUS. 
end 
else 


Ref STATUS = PAS_CODE; 
end; 


end; 
if .N nequ ZERO 
then 


IF NOT, RETURN GOOD STATUS 


MOVE MASK BIT 


maak = ,MASKT1; 
STEP N WRITE DATA TO SA 


WRT _RC25 (RCSA. DATA); 
end; 


end; 
end; 
if .RET_STATUS 
then 


IF TRUE ee THEN 
SUPPLY P1-P6 FOR TEST 
MODULE FOR ERROR PRINTOUT. 


P4 = ra Re2e + 23 
PS = .RC25_ BATA Presa’ RC_ALL); 
P6 = .MASK; 

MSGADR = MgG_1 

return .RET Status; 

end 


1 
enee veturn .RET_STATUS; ! ORHERWISE GOOD STATUS. 


Se SS SO SS OF Ge Se Ge SF SF Gs Se GF GF GF OF GE GF GF e: GF Ge Ge BF GF GF SF GF GF GE Gs OF OF OF GF OF Gs OF Os Gs Oe OF Gs Os OF Os Os Os Os 66 Os o% 
> 
fo 
@ 


~ 
Pr] 
fw 
HKNVVNVNUAWWUAAUWNUUUNRMDN WUD BULUIUIE & & BUUADRUADMAAARAOAAHHUGUUU UU 


end; 


-SBTTL AZP.INIT AZTEC INITIALIZATION BY POLING 


00 004167 000000G AZP INIT: ;: 
JSR R1,$SAVES : 2295 








MISCELLANEOUS SECTIONS 
AZTEC INITIALIZATION BY POLING 


000001 
177777 
0000006 
000002 
000000G 
000002 


177777 
000001 
000000G 
000092 
000000G 
000003 


000515 


000000G 
000002 
0000026 


1$: 


2s: 


3$: 


4$: 
S$: 


6$: 


7$: 


8$: 


Fil 


27-Mar-1985 15:23:34 
11-Jan-1985 08:19:19 


-(SP),-(SP) 
#1,R5 


#-1,RO 
RO, @RC25. ADDR 
#2,R 


#515,R1 


$ 
RC25. a. RO 
2(RO), (SP) 
(SP). RC2S. -DATA+2 


(SP),RO 








VAX-11 Bliss-16 V4 


579 
USER$1: : (AZTEC. CORCFCIZRCF C2. B16;1 


* 


; *,$$TMP1 
$$TMP 

; $$TMP1 

; $$TMP2 


MASK, * 


3; *,MASK 
H N,*# 

; *,DATA 
1 


; *,DATA 
; *,DATA 
; *,DATA 


; *,DATA 
; COUNT 
3; *,$$TMP2 


; *,$$TMPl 


xz 
oOo 
We 
AD 
me 
o 
ae 


MASK, * 
RC25.DATA+2,* 


SEQ kag 
40 
oe 017) 
2359 
2360 
2361 


2363 
2366 


2395 


2397 








MISCELLANEOUS SECTIONS 
AZTEC INITIALIZATION BY POLING 


177760 
000011 


000024 
100000 
000021 


000002G 17$: 
000000G 
18$: 


0000026 
177760 


000002 000000G 


000000G 19$: 


20$: 


0000006 21s: 
000002 000000G 

000000G 000000G 

000001 0000006 

0000006 

000002 

000000G 

000002G 0000006 

0000006 





Gil 


27-Mar-1985 15:23:34 
11-Jan-1985 08:19:19 

RO 

RO 

RO 

RO 

#177760,R0 

RO,R1 

17$ 

#11,RET.STATUS 

22 

Ra 

R4,024 


#100000, RC25.DATA+2 
#21,RET.STATUS 
21$ 


RS,R1 
RC25.DATA+2,R0 
RO 


RO 
RO 


RO 
#177760 ,RO 
RO,R1 
19$ 

#2,P .MASK 
oFMT3,P 
#1,P2 

RC25. ADDR ,RO 
#2,RO0 

RO,P4 

at eae 
@MSG.14,MSGADR 
RET.STATUS,RO 
23% 

RET. STATUS 

R3 

20$ 

RS 

R2,R4 
RC25.ADDR,RO 
R4,2(RO) 

R3,04 

21$ 

5$ 
#1,RET.STATUS 
2s 


#2 ,P.MASK 
OFMT3,P1 


#1,P2 
RC25.ADDR,RO 
#2,RO0 


RO,P4 
RC25.DATA+2,P5 
RS,P6 








SEQ 0136 
VAX-11 Bliss-16 V4.0-579 
USER$1; (AZTEC .CZRCFC JZRCFC2.616;1 


3 2399 
COUNT 239, 
; COUNT, * e 
: 2403 
; 2406 
PF 2405 
; MASK,# 2413 
3 2416 
F . 2417 
H 2418 
FH 2419 
H 2420 
; MASK,# 2421 
3 2422 
H 2415 
3 2427 
3; N 2432 
MASK 2435 
; DATA,RCM.REG 5436 


; RCM.REG,* 
N 
3 N,* 












Hil 
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v03.0 AZTEC INITIALIZATION BY POLING 11-Jan-1985 08:19:19 USER$1; (AZTEC. CZRCECIZRCFC2. B16;1 (17) 





000554 012767 000000G 0000006 MOV @MSG.14,MSGADR i 2452 
000562 016700 0000006 MOV RET. STATUS, RO ; 2456 
000566 000402 BR 2 

000570 016700 0000006 22$: MOV RET. STATUS ,RO 

000574 022626 23$: CMP (SP)+,(SP)- ; 2295 
000576 000207 RTS PC 


; Routine Size: 192 words, Routine Base: ABSCODE + 1636 
; Maximum steck depth per invocation: 10 words 


; 2459 1 





Iii 





BEF TATUS © FAL fone: 
return .RET. STATUS ! RETURN WITH ERROR CODE SET 


ZRCFB2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 X-11 Bliss ce wong 43 
v03.0 COMMUNICATION RING INITIALIZATION 11-Jan-1985 08:19:19 USER#L: AZTEC CzRCEC IZRCF C2, B16;1 (18) 
: eott : “sbttl "COMMUNICATION RING INITIALIZATION’ 

; e462 1 

>; 2463 1 tine routine INIT_COM_AREA = 

; 2464 1 

; 245 1 

>; 2466 1 : FUNCTIONAL DESCRIPTIONS: 

:; 2467 1 ' THIS ROUTINE FIRST MAKES SURE THAT THE COMMUNICATION AREA'S 

>; 2468 1 : RING BUFFERS ARE CLEARED, THEN THE COMMUNICATIONS AREA IS 

; 5 44 : : INITIALIZED AS FOLLOWS: 

>; e471 1 : 1. ie} FROM THE CONTIGIOUS DATA STORAGE STRUCTURE "COM_AREA” 
; e472 1 : THE HEADER AREA ADDRESS, RECEIVE RING ADDRESS AND THE SENDING 
3 oera : : RING ADORESS. 

; e475 1 H 2. CLEARS THE INTERRUPT INDICATORS (RING BASE -1, -2, -3, -4) 

3 Saye : DEFINED AS HEAD_AREA, 

3 tt : : 3. LOADS THE RECEIVE AND SEND DESCRIPTORS WITH THE VALUES: 

; 2480 1 Hy ENVELOPE LOW, HIGN AND Q BUS ADDRESS 

>; 2481 1 H 8: ie at FIELD 

>; 2482 1 $ C. FLAG BIT 

$ 44 : : 0. OUENERSHIP BIT 

>; 2485 1 Hy 4. LOAD THE RECEIVE ENVELOPE MESSAGE LENGTH WITH THE BUFFER SIZE 
>; 2486 1 8 IN BYTES. 

>; 2487 1 H 

>; 2488 1 ' FORMAL PARAMETERS: 

>; 2489 1 ‘ -NONE - 

’ 2490 1 ‘ 

>; e491 1 ‘ IMPLICIT INPUTS: 

: eens : HEAD_AREA, RECEIVE_RING, SENDING_RING, COM_4REA 

>; 2494 1 ! IMPLICIT OUTPUTS: 

>; 2495 1 ; AS A RESULT OF THIS ROUTINE THE COMMUNICATION AREA WILL 

>; 249% 1 H BE INITIALIZED. 

; 2497 1 ’ 

>; 2498 1 ! COMPLETTION CODES: 

; 2499 1 : FAL_CODE : INDICATE AN ERROR HAS OCCURED 

;s 2500 1 i PAS_CODE : INDICATE NO ERROR 

; 2501 1 $ 

>; e502 1 ! SIDE EFFECTS: 

: 2503 1 ‘ NONE - 

>; 2504 1 !-- 

>; 2505 1 

; 2506 2 begin 

; 2507 2 : 

3 e208 § incru I from 0 to RING_SIZE - 1 do ! TEST RING AREA FOR ZEROS 
3 

3 sai? § incru J from 0 to 1 do H 

s 2512 2 if .COM_AREA [.I, .J, WORD_REF]) nequ 0 ! IF RING AREA IS NOT CLEAR 
: 2s 2 then ! THEN 

s 3 

$ 3 

$ 3 








Bhd a, 
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MISCELLANEOUS SECTIONS 


COMMUNICATION RING INITIALIZATION 


end; 


J1l 


27-Mar-1985 15:23:34 VAX-11 Bliss-1 
11-Jan-1985 08:19:19 USER$1: (AZTEC. CORCFCIZRCF C2. B16;1 





' 
! DEFINE THE ADDRESS LOCATIONS OF THE HEAD_AREA, RECEIVE_RING 
AND SEND_RING. 


HEAD _AREA = com ARE 


RECEIVE RING = 


incru I from 0 


te 


° 3 do 
HEAD_AREA [. 2, WORD -REF) = ZERO; 


COMCAREA [REC_BASE 
ND_RING = COM_AREA ene BASE); 7 


! DEFINE THE HEADER AREA 
! DEFINE THE RESPONSE RING AREA 
! DEFINE THE COMMAND RING AREA . 


: CLEAR THE HEADER AREA 


LOAD UP_THE Bg! RING DESCRIPTORS WITH AN ENVELOPE ADDRESS 
IT” TO = 1 CINTERRUPT REGUESTED) T 


' DEINE THE ” 


FLAG B DEFI 
! “OWNERSHIP ert" TO ZERO COWENED BY HOST) AND LOAD tHe RESERVED 


FIELD 


vacate oh from 0 to SND_ALLOCATE - 1 do 
_ F 
I 


WITH ZERO. 


Ae 


LO_ENSAD) = SND_ENVELOPE [. 1. CMD_LREF); ! LO- ORDER SEND ENVELOPE ADDR 
T7ENSAD) = ZERO; | HE-ORDER SEND EN ADDR 

QB-EXT) = ZERO; ' HI-ORDER POR OF UNIBUS 

D_RSVD) = ZERO; ' OR Q-BUS A Rese 

FLAG B11) = ZERO; ' FLAG BIT, 1=INT. REQUESTED 
WN_6IT) = ZERO; ! OWNERSHIP BIT O=0WNED BY HO 


te 

' LOAD UP THE RESPONSE RING DESCRIPTORS WITH AN ENVELOPE ae yf 
THE “OWNERSHIP D BY PORT) DEFINE THE “FLAG 
' BIT” TO = 1 CINTERRUPT REQUESTED) AND THE RESERVED FIELD SET T0 


‘ DEFINE 


: ZEROS 


BIT” = 1 (COWNE 


incru I from 0 to REC_ALLOCATE - 1 do 


RECEIVE. RING 


RECEIVE_RING 
end; 


I, LO. ENSAD . REC ENVELOPE {.1, CMD_LREF); ! LO-ORDER SEC ENVELOPE ADDR 
"I; HITENSAD ERO; T-ORDER COMMAND ENV. ADDR 

‘I, @B ExT] : 7ERO, it. ORDER PORTION OF UQ ADDR 

"T’ 0_RSVD) = ZERO; t RESERVED 


“I, OWN_61T) = ONE; ! QWENER BIT, 1=OWNED BY PORT 


‘ 
: SET THE RESPONSE ENVELOPE MESSAGE LENGTH 


incru I from 0 to oe ALLOCATE - 


REC_ENVELOPE 


(.1 


, MSG OCENGTH) . Re. SIZE*2; ! CONVERT TO BYTES BEFORE 


RET_STATUS = an CODE; ! LOADING 
return .RET_STA 


end; 


TUS; 








SEQ 0139 - 
a 18) 


ZRCFB2 
vo3.0 











K11 


SEQ 0140 
MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-i1 Bliss-16 Page 45 
COMMUNICATION RING INITIALIZATION 11-Jan-1985 08:19:19 USER$1: (AZ TEC, CoRCECIZRCF C2, B16;1 (18) 
-SBTTL INIT.COM.AREA COMMUNICATION RING INITIALIZATION 
000000G INIT.COM. AREA: ; 
JSR R1, $SAVE2 ’ 2463 
CLR R2 3 I 2508 
1$: CLR Ri s J 2510 
2s: MOV R2,RO ; I, 2512 
ASL RO 
ADD R1,RO ; J.* 
ASL 0 
000000G eas a AREA(RO) 
000000G 000000G MOV oF. .CODE ,RET.STATUS 
000000G MOV RET. STATUS, RO 
RTS PC 
3$; INC Ri 
000001 CMP R1,01 
BLOS es 
INC RO 
000037 CMP oe 
‘ BLOS 1$ 
MOV @COM.AREA,HEAD. AREA 
000010G 000000G MOV COM. AREA+10, RECEIVE .RING 
000110G 000000G wy on. *AREA+110, SEND .RING 
4$: MOV RO,R1 
ASL R1 
000000G ADD HEAD. AREA,R1 
CLR (R1) 
INC RO 
000003 ¢ CMP RO, 03 
BLOS 4$ 
CLR R1 
5$: MOV R1,R2 
ASL R2 
ASL R2 
000000G ADD SEND.RING,R2 
000054 MOV 054,-(SP) 
000000G JSR PC BL $MUL 
000004G ADD @SND.ENVELOPE+4,R0 
MOV RO,(R2) 
MOV R1,RO 
ASL RO 
ASL RO 
000000G ADD SEND .RING,RO 
000003 000002 BICB #3,2(RO) 
MOV R1,RO 
ASL RO 
ASL RO 
000000G ADD SEND.RING,RO 
000074 000002 BICB 074 ,2(RO) 
L 


RO 
000000G ADD SEND.RING,RO 
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037700 000002 


000000G 
040000 000002 


6$: 


0000006 
000003 000002 
0000006 
000074 000002 
000000G 
037700 000002 


000000G 
040000 000002 


000000G 
100000 000002 
000017 


BIC 





Lil 


27-Mar-1985 15:23:34 
11-Jan-1985 08:19:19 


937700, 2(RO) 
R1,RO 


RO 
SEND .RING, RO 
#40000, 2(RO) 


(SP )+ 

R 

R1,017 

5$ 

R2 

R2,R1 

Ri 

Ri 

RECEIVE .RING,R1 
R2,RO 

RO 

RO 

0 

€77,RO 

OREC .ENVELOPE+4,RO 
RO,(R1) 


RO 

RECEIVE .RING,RO 
$3,2(RO) 

RO 

RECEIVE .RING RO 
074,2(RO) 


RO 

RECEIVE. tt RO 
#37700,2(RO) 
R2,RO 


RO 
RECEIVE .RING,RO 
40000, 2( RO) 


RO 
RECEIVE .RING,RO 
#100000, 2( RO) 


R2,917 
6$ 
R1 


VAX-11 
USER$1 


3 I,* 


8c! CORCFCIZRCF C2. B16;1 








SEO, 0141 
O98 18) 
2543 


2544 


2538 
2537 


2554 
2556 


2557 
2558 
2559 
2560 
2561 


2554 


2568 


000544 
000550 
000554 


:; Routine Size: 
3; Meximum steck 


006000 
142700 
012760 
005201 
020127 
101762 
005067 
016700 
000207 


; e574 |} 





MISCELLANEOUS SECTIONS 27-Mer-1985 15:23:34 
COMMUNICATION RING INITIALIZATION 11-Jan-1985 08:19:19 
78: MOV R1,RO 

SWAB RO 
RORB RO 
ROR RO 
ROR 
000077 BICB 077,R0 
000074 0000006 oe Zot Ee LENS) 
000017 CMP R1,017 
BLOS 7% 
000000G CLR RET. STATUS 
000000G are ne 


183 words, Routine Base: ABSCODE - 2436 
depth per invocetion: 6 words 


SEQ 0142 
VAX-11 Bliss-16 V4.0-579 Page 47 
USER$1: (AZTEC. CZRCFC JZRCFC2.616;1 (18) 
; I,¢ 2569 








hs OK 


SEQ 0143 
ZRCFR2 MISCELLANEOUS SECTIONS 27-Mer-1985 15:23:34 VAX-11 Blise-16 V4.0-579 P 4 
vo3.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFC JZRCFC2.616;1 meat tT) 
:; e575 1 Sebttl ‘AZTEC GLOBAL ROUTINE’ 
: 257% 1 : 
s e577 1 
+; 2578 1 globel routine EX_SUP_PRG = 
:; 2579 1 
; 2580 1 tee 
; 2561 ' FUNCTIONAL DESCRIPTION : 
: 2582 
; 2583 1 ; THIS a a CAUSES THE SERVER TO TRANSFER THE PROGRAM FROM HOST 
; 2584 1 ' AN AREA THE CONTROLLER AND START ITS EXECUTION, 
; e585 1 : THE nOST sete tt THE ADDRESS AND LENGTH IN BYTES lt, BUFFER 
; 2586 1 : CONTAINING THE PROGRAM WHICH WAS MADE INTO ONE TIGUOUS 
; 2587 1 H VECTOR OF DATA "7. FAR AS HOST IS CONCERNED. rags COMMAND IS 
; 2588 1 : ONLY LEGAL WHEN THE SERVER IS IN THE IOLE STATE AND RETURN 
3 F344 ' : OF A SUCCESSFUL END PACKET PUTS THE SERVER INTO ACTIVE STATE. 
3 . 
: e20h i : FORMAL PARAMETERS : 
Hy . 
3 $233 ' : IMPLICIT INPUTS : ®BUF_DESCRPTR, BYTE_COUNT 
3 . 
; 2595 1 : IMPLICIT OUTPUTS : RET STATUS AS RECEIVED FROM REC_ ants ROUTINE 
; 25% 1 ' IS RETURNED 10 CALLING ROUTI 
; e597 1 § SIDE EFFECTS : 
; 2598 1 $ 
; 2599 1 $-- 
; 2600 1 . 
: 2601 2 begin 
; 2602 2 
; 2603 2 locel 
; 2604 2 TEMP ; 
; 2605 2 
; 2606 2 : 
$ ord $ : CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT. 
3 7 
; 2609 2 I_AM_NEX = ZERO; 
at Bont 
8 
8 soig $ : UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 
3 ° 
; 2614 2 SND_ENVELOPE [.CMD_SLOT, MSG LENGTH) « SZ_ESP; 
; 2615 2 SND_ENVELOPE [ .CMD_SLOT, credits) = ONE; 
s 2616 2 SND_ENVELOPE [.CMD_SLOT, $2) * 0; 
3 oe ff $ SND_ENVELOPE [.CMD_SLOT, ConA. Ioi-* * 2; 
3 . 
; 2619 : : DUP COMMAND ENVELOPE FIELD DEFINITION 
$ H 
s e621 2 SND_ENVELOPE [.CMD_SLOT, CMD_LREF]) = .CMD_REF; 
s e622 2 SND_ENVELOPE [. “SLOT. MO-HREF}] = ZER 
; 2623 2 ENVELOPE [.CMD_SLOT, UN_CUSED] = ZERO, 
s 2624 2 SND_ENVELOPE [.CMD_SLOT, HUS' » ZERO; 
s 2625 2 SND_ENVELOPE [.CMD_SLOT, OPCODE ESP; 
s 2626 2 -ENVELOPE [.CMD_SLOT, UQRSVD) = ZERO, 
s 2627 2 SND_ENVELOPE [.CMD_SLOT, MODIFIER) = ZERO; 
s 2628 2 SND_ENVELOPE [.CMD_SLOT, BLO_CNT) = -BYTE_COUNT ! BYTE COUNT LOW WORD 
s 2629 2 ¥ LOPE [.CMD_SLOT, BHI NT * ZERO ! BYTE COUNT HIGH WORD 
+ 2630 2 SND_ENVELOPE [.CMD_SLOT, BD_ . BUF DESCRPTR ! BUFFER DESCRIPTOR WORD O 
s 2631 2 -ENVE! OPE [.CMD_SLOT, BD_1) = ZERO; ! BUFFER DESCRIPTOR WORD 1 








uw 
POPP Po Poo foo fofo fo Poffo fofofofelfoforoforolfofory 








Bie 


SEQ ty 

MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Blies-16 V4.0-579 49 

AZTEC GLOBAL ROUTINE 11-Jen-1985 08:19:19 USER$1: (AZTEC .CZRCFC JZRCFC2. 616;1 0919) 
SND_ENVELOPE [.CMD_SLOT, 80.2) = ZERO; ! BUFFER DESCRIPTOR WORD 2 
SND_ENVELOPE [.CMO_SLOT, 80.3) © ZERO; ! BUFFER DESCRIPTOR WORD 3 
SNO_ENVELOPE [| .CMD_SLOT, 80.4] © ZERO; ! BUF DESCRIPTOR WORD 4 
SNO_ENVELOPE [ .CMO_ » 80.5) = ZERO ! BUFFER DESCRIPTOR WORD 5 
SNO_ENVELOPE [.CMD_SLOT, 080.0) = ZERO; ! BUFFC? DESCRIPTOR WORD 0 
SND_ENVELOPE [| .CMD_SLOT, 080.1] »* ZERO; ! BUFFER DESCRIPTOR WORD 1 
SNO_ENVELOPE [| .CMD_SLOT, 080.2] = ZERO; ! BUFFER DESCRIPTOR WORD 2 
SND ENVELOPE [.CMD_SLOT, 080.3) = ZERO; ! BUFFER DESCRIPTOR WORD 3 
SND_ENVELOPE [.CMD_SLOT, 080.4] © ZERO; ! BUFFER DESCRIPTOR WORD 4 
e ! BUFFER DESCRIPTOR WORD 5 


SNO_ENVEL OPE -CMO_SLOT, 080_5 ZERO; 
: SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
SEND _RING {.CMD_SLOT, OWN_BIT) = PORT_OWNED; 

: READ THE IP REGISTER TO STIMULATE PORT POLLING. 

TEMP = .RC25_ADOR (RCIP, RC_ALL); 

: GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 

GET_CMD_SLOT (); 


! CHECK THE END PACKET FOR GOOD STATUS 
return REC_STATUS (); !RETURN THE STATUS 
é 


-SBTTL EX.SUP.PRG AZTEC GLOBAL ROUTINE 
EX.SUP.PRG: : 


-(SP) ; 
0000006 CLR 1. AM, NEX ; 
0000006 MOV CMD. SLOT, -(SP) : 
000054 MOV 654, -(SP) 
0000006 JSR PC, BL $MUL 
000050 0000006 MOV #50, SND. ENVELOPE(RO) 
0000006 MOV CMD: SLOT, (SP) : 
000054 MOV 054, -(SP) 
0000006 JSR PC, BL $MUL 
000017 0000026 BICB 017,SND.ENVELOPE-2(RO) 
000001 0000026 BISB 01, SND.ENVELOPE+2(RO) 
0000006 MOV CMO. SLOT, (SP) : 
000054 MOV ~ 
0000006 JSR PC, BL SMUL 
000360 0000026 BICB $0360, SND. ENVELOPE-2(RO) 
0000006 MOV CMD. SLOT, (SP) ; 
000054 MOV 054 ae 
0000006 JSR PC BL $MUL 
000002 0000036 MOVB eh. SENVEL OPE. 3(RO) 
0000006 MOV cn ; 
000054 MOV aS he 
0000006 JSR Pe. 2b shu 
0000006 0000046 MOV CHO REFS SND. ENVELOPE +4(RO) 

MOV CMD: SLOT, (SP) 

000054 MOV 054. -(SP) 


MISCELLANEOUS SECTIONS 
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000000G 


000000G 
000000G 0000246 
000000G 


Cle 


27-Mar-1985 15:23:34 
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Sno” "ENVELOPE 6(RO) 
CHD. SLO 


be L $MUL 
SND. ENVELOPE +10(RO) 
CMO: SLOT, (SP) 
54 -(SP) 
$HUL 
enbe ENVELOPE + 12(RO) 
CMD: SLOT, (SP) 
054, -(SP) 


PC, BL $MUL 
02 GND. ENVELOPE +14(RO) 
CMO. SLOT, (SP) 

054. -(SP) 


PC, BL SMUL 
SND. ENVELOPE +15(RO) 
CMO: SLOT, (SP) 

654, -(SP) 

PC, BL $MUL 

SNO . ENVELOPE + 16(RO) 
CMD: SLOT, (SP) 
a4 -(SP) 


¢,6L $MUL 
Byte. COUNT, SND. ENVELOPE +20(RO) 


CMO. SLOT, (SP) 
654, -(SP5 


L$MUL 
ae ENVEL OPE«22(R0) 
cH. SLOT oT. (SP) 


pee csi 
BUF DESCRPTR SND. ENVELOPE+24(RO) 
MD. SLOT, (SP) 


CMD: 
654, -(SP) 


ono’ ENVELOPE 26(R0) 
CHD. S LOT (SP ) 


Pe. 61 $HUL 
SND. ENVELOPE +30(RO) 
CHO. SLOT (SP) 


PC, BL $MUL 
SND. ENVELOPE» 32(RO) 
CMD: SLOT, (SP) 
54. - (SPS 


L$MUL 
gNbe ENVELOPE + 34(RO) 
CHD. SLO LOT «(SP ) 


PC, L$MUL 
SND. ENVELOPE 36(RO) 
CM0.S se ) 

054, 

PCL SHUL 





VAX-11 Bliss-16 V4.0-579 


SEQ,0145 
USER$1:(AZTEC.CZRCFC JZRCFC2.B16;1 





(19) 


2623 


2624 


2625 


2626 


2627 


2628 


2629 


2630 


2631 


2632 


2633 


2634 


2635 


2636 







Die 





SEQ pole 
51 





ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-579 Page 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1:(AZTEC. CZRCEC IZRCFC2, B16;1 (19) 
000530 005060 0000406 CLR SND. ENVELOPE »40(RO) 
000534 016716 000000G MOV CMO: SLOT, (SP) ' 2637 
000540 012746 000054 MOV 54 s-(3P) 
000544 004767 0000006 JSR L$MUL 
000550 005060 0000426 CLR ENO ENVELOPE +42(RO) 
000554 016716 000000G MOV CMO. SLOT, (SP) : : 2638 
000560 012746 000054 MOV 054, -(SP) . 
000564 004767 000000G JSR PC, BL $MUL 
000570 005060 000044G CLR SND. ENVELOPE +44(RO) 
000574 016716 0000006 MOV CMD: SLOT, (SP) ; 2639 
000600 012746 000054 MOV 054. -(SP) 
000604 004767 000000G JSR PC BL $MUL 
000610 005060 0000466 CLR SND. ENVELOPE +46(RO) 
000614 016716 000000G MOV CMD; SLOT, (SP) ; 2640 
000620 012746 000054 MOV 454 SPS 
000624 004767 0000096 JSR L $MUL 
00 0000506 CLR CNB” ENVELOPE 50(RO) 
000634 016716 0000006 MOV CHD. SLOT (SP) ; 2641 
012746 000054 MOV -(SP) 
000644 004767 0000006 JSR L$MUL 
000650 005060 0000526 CLR PESBL IFUL cro) 
000654 016700 000000G MOV CMD. SLOT,RO ; 2645 
000660 ASL 
000662 006300 ASL RO 
000664 066700 0000006 ADD SEND .RING,RO 
000670 052760 100000 000002 BIS #100000, 2(RO) 
000676 017766 0000006 000064 MOV @RC25. ADDR, 64(SP) #,RC.REG 2649 
000704 016600 000064 MOV 64(SP), RC. REG, TEMP é 
000710 004767 000000V JSR PC,GET.CMO. SLOT 
000714 004767 000000V JSR PC; REC.STATUS 
000720 062706 000066 ADD 66, SP 
000724 000207 RTS 


; Routine Size: 235 words, Routine Base: ABSCODE + 3214 
; Maximum stack depth per invocation: 28 words 


s 2660 1 
8 2661 1 H 
3 2662 1 


Ele 





ZRCFB2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Blise-16 v4 a 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19  USER$1:(AZTEC. CZRCEC IZRCF C2. B16;1. (20) 
; 2663 1 global routine SEND_DATA = 

> 2664 1 

: 2665 1 tee 

; 2666 : ! FUNCTIONAL DESCRIPTION: 

3 ° 

; 2668 1 ' THIS IS ONE OF THE DUP COMMANDS TO COMMUNICATE BETWEEN THE 

>; 2669 1 ' NITIATING HOST PROGRAM AND THE REMOTE PROGRAM. THIS COMMAND 
; 2670 1 ‘ SPECIFIES HOST BUFFER DESCRIPTOR (START ADDRESS OF B ) 

> 2671 1 : ORM UFFER IS READ BY THE 
s 2672 1 ' REMOTE PROGRAM AND A SEND DATA RESPONSE SENT BACK TO 

; 2678 1 ' HOST TO ACKNOWLEDGE RECEIPT. THIS COMMAND IS ONLY LEGAL 

> 2674 1 ; WHEN THE SERVER IS IN THE ACTIVE STATE. IF THE REMOTE 

> 2675 1 ' PROGRAM TERMINATES ABMORMALLY PUTTING THE SERVER BACK IN 

; 2676 i THE IDLE STATE, OUTSTANDING COMMAND MAY BE LOST. 

a s 

> 2678 1 ' FORMAL PARAMETERS : 

: 2679 1 ‘ 

; 2680 1 ! IMPLICIT INPUTS : BUE ADESCRPTR ByTE. COUN 

> 2681 1 ' SABD, BUF_LENG NGTH WILL BE MADE AVAILABLE 
; 2682 : O° eniTE -poochen BY THE POINTER IN BUF_DESCRPTR. 
> 2684 1 ! IMPLICIT OUTPUTS : RET_STATUS AS RECEIVED FROM REC_STATUS 

; 2685 i WILC BE RETURNED TO CALLING ROUTINE. 

; 2687 1 ! SIDE EFFECTS : 

; 2688 1 ' 

; 2689 1 jns 

: 2690 1 ‘ 

; 291 2 begin 

> 2692 2 

3 2693 2 local 

: 2694 2 T 3 

: 2695 2 

3 2696 2 ! 

; 2697 2 ! CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT. 
: 299 2 I_AM_NEX = ZERO; 

; 2702 2 UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 

; 2704 2 SND_ENVELOPE [.CMD_SLOT, MSG LENGTH) = SZ_SED; 

; 2705 2 SND_ENVELOPE [.CMD_SLOT, CREDITS) = ONE; 

; 2706 2 SNO-ENVELOPE [.CMD~SLOT, MSG 1182 = 0; 

; 2707 : SNO_ENVELOPE [ -CMD_ SLOT, CONN_ID) = 2; 

; 2709 : DUP COMMAND ENVELOPE FIELD DEFINITION 

; 2711 2 SND_ENVELOPE [.CMD_SLOT, CMD_LREF] = .CMD_REF; 

; pre 2 SNO-ENVELOPE [.CMD~SLOT, CMD-HREF] = ZERO; 

; 2718 2 SNO-ENVELOPE [:CMD"SLOT. UN_CUSED] = ZERO; 

; 2714 2 SND-ENVELOPE [.CMD-SLOT, UN-HUSED] = ZERO; 

; 2715 2 SND-ENVELOPE [.CMD~SLOT, OPCQDE) = OP SED; 

; 2716 2 SNO-ENVELOPE [.CMD~SLOT, UQRSVD) = ZERO; 

3 an? 2 SND “ENVELOPE {{CMD7SLOT, MODIFIER) = ZERO; 

; 2718 2 SND“ENVELOPE ({CMD“SLOT, BLO_CNT] = .BYTE. -COUNT; _! BYTE COUNT LOW WORD 
; 2719 2 SND ENVELOPE [.CMD~SLOT, BHI-CNT) = ZERO; ! BYTE COUNT HIGH WORD 
















Fle 


MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Blies-16 V4.0 heen” a 
AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19  USER$1: (AZTEC. CzRCECIZRCFC2. B16;1 (20) 
2 SNO_ENVELOPE [.CMD_SLOT, 8D_0) = .BUF_DESCRPTR; ! BUFFER DESCRIPTOR WORD 0 
2 SND_ENVELOPE [.CMD-SLOT, BD-1) = ZERO; ! BUFFER DESCRIPTOR WORD 1 
2 SND-ENVELOPE {.CMD~SLOT, BD72) = ZERO, ! BUFFER DESCRIPTOR WORD 2 
2 SNO_ENVELOPE [.CMD-SLOT, BD-3) = ZERO; ! BUFFER DESCRIPTOR WORD 3 
2 SNO_ENVELOPE [.CMD-SLOT, BD-4) = ZERO; 1 BUFFER DESCRIPTOR WORD 4 
2 SNO_ENVELOPE [<CMO-SLOT, BD_5) = ZERO: ! BUFFER DESCRIPTOR WORD S 
: { SET THE CWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT 70 THE PORT. 
2 SEND_RING [.CMD_SLOT, OWN_BIT] = PORT_OWNED; 
2 ! READ THE IP REGISTER TO STIMULATE PORT POLLING. 
2 TEMP .RC25_ADDR [RCIP, RC_ALL); 
2 ; GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
2 GET_CHO_SLOT O); 
é ! CHECK THE END PACKET FOR GOOD STATUS 
2 return REC_STATUS (); ' RETURN THE STATUS 
1 end; 
.SBTTL SEND.DATA AZTEC GLOBAL ROUTINE 
005746 SEND.DATA:: 
TST -(SP) : 2663 
005067 0000006 CLR 1. AM, NEX ; 2699 
016746 0000006 MOV CMD. SLOT, -(SP) ; 2704 
012746 000054 MOV 054 ~(SP P) 
767 0000006 JSR PC, BL $MUL 
012760 000034 0000006 MOV 034, SND. ENVELOPE(RO) 
016716 0000006 MOV CMD: SLOT, (SP) ; 2705 
012746 000054 MOV a4, -(5P) 
004767 0000006 JSR 
142760 000017 0000026 BICB eit END AE ENVELOPE +2(RO) 
152760 000001 0000026 BISB 1,SND. gENVELOPE +2(RO) 
016716 0000006 MOV cH. SL : 2706 
012746 000054 MOV “SPS. 
004767 0000006 JSR pe L$MUL 
142760 000360 0000026 BICB 360, SND. ENVELOPE +2(RO) 
016716 0000006 MOV CMD. SLOT, (SP) : 2707 
012746 000054 MOV 054 835 
004767 0000006 JSR PC , BL SMUL 
112760 000002 0000036 MOVB SND. ENVELOPE. 3(RO) 
016716 0000006 MOV cht ; 2711 
012746 000054 MOV mt te 
004767 0000006 JSR L $MUL 
016760 000000G 0000046 MOV Pee REF , SND. ENVELOPE+4(RO) 
016716 0000006 MOV CMD: SLOT, (SP) 
012746 000054 MOV 054 = (5P3 
004767 0000006 JSR PC, 
005060 0000066 CLR SNO ENVELOPE +6(RO) 
016716 0000006 MOV CMD: SLOT, (SP) 
012746 000054 MOV #54, -(SP) 


004767 000000G JSR PC, BL $MUL 











MISCELLANEOUS SECTIONS 
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000010G 
000054 


000000G 
000000G 0000246 
0000006 


000000G 
100000 000002 
00G 000050 


Gle 


27-Mar-1985 15: 
11-Jan-1985 08: 


SND. ENVELOPE +10(RO) 
A Shae Hal 


PC, BL SMUL 
SNO . ENVELOPE +12(RO) 
CMD. SLOT, (SP) 

#54. -(SP) 

PC, BL $MUL 
04.SND.ENVELOPE+14(RO) 
CMO. SLOT, (SP) 

654, - (SP) 


PC 
SNO. ENVELOPE + 15(RO) 
CHD. "SL LOT «(SP ) 


PC, BL $MUL 
SND. ENVELOPE: 16(RO) 
CMD: SLOT, (SP) 

e54 CSP) 


Bytee COUNT, SND. ENVELOPE +20(RO) 


CMD. SLOT, (SP) 
e34 ,=(SP) 


L$MUL 
SMO” ENVELOPE +22(RO) 
CMD. SLOT, (SP) 
54 SP) 


:34 
:19 


BUF .DESCRPTR, SND. ENVELOPE+24(R0) 
H 


CMD.SLOT,(SP 
054, -(5P) 


PC, BL $MUL 
SND . ENVELOPE +26(RO) 
CHD. "SLOT, (SP) 


PC, BL $MUL 
SND . ENVELOPE +30(RO) 
CMD; SLOT, (SP) 

$54, -(SP) 


PC, BL $MUL 
SND. aps a 8 32(RO) 
> Lo el ) 


L $MUL 
am ENVELOPE. 34(RO) 
CMD: SLOT, (SP) 

o4. p} 


L$MUL 
ENB ENVELOPE +36(RO) 
CMD. SLOT,RO 


0 
SEND. ey 
#100000, 2(RO) 
ores’ ADDR, 50( SP) 


50( SP 
PC,GET. ‘CHO, SLOT 





; *,RC 


REG 
RC.REG, TEMP 


579 
CrCzRCECIZRCFC2. B16;1 


SEQ 0149 
99 20) 


2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 


2729 


2733 
2737 
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SEQ 4g 


ZRCFB2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-57 

v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1;: (AZTEC. CZRCECIZRCFC2. B16;1. 99° 20) 
000554 004767 000000V JSR PC,REC.STATUS Hy 2741 
000560 062706 000052 ADD #52,SP i 2663 
0005€4 000207 RTS PC 


; Routine Size: 187 words, Routine Base: S seauin + 4142 
; Maximum stack depth per invocation: 22 word 


; 2743 1 
2744 ji : 
: 2745 1 





Iie 





SND_ENVELOPE [.CMD_SLOT, BLO_ call = ,BYTE_COUNT; ! BYTE COUNT LOW WORD 
SND _ENVELOPE epee or BHI A 3 ZERO: ! BYTE COUNT HIGH WORD 

° nu: CR PTR; ! BUFFER DESCRIPTOR WORD 0 
SND _ENVEL OPE "CMD. SLOT, BD 1j = 2ERO7 ! BUFFER DESCRIPTOR WORD 1 


ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-1 579 oe 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1; (AZTEC. CZRCEC IZRCFC2. B16;1 (21) 
; 274 1 global routine REC_DATA = 

; e747 1 

; 2748 1 fee 

; $180 : : FUNCTION DESCRIPTION : 

é : 

; e75i 1 : THIS IS ONE OF ye OUP neo ne TO Sree Bal THE 

. aia 2 : INITIATING HOST PROGRAM AND THE REMOTE PROGRAM. THIS COMMAND 
s 2753 i : paetes HOST BUFFER DSCRIPTOR (START ADDRESS OF BUFFER) 

; e754 1 : AND BYTE COUNT. THE REMOTE PROGRAM WRITES 10 THE BUFFER 

; e755 i : TO THE T SPECIFIED BY THE BYTE COUNT AND THEN SENDS 
; e756 1 : A RECEIVE DATA RESPONSE TO THE HOST. TH as ate re ya 

» wets & : LEGAL WHEN THE SERVER IS IN THE ACTIVE STATE. IF THE REMOTE 
: 2758 1 : PROGRAM TERMINATES ABMORMALLY PUTTING The SERVER BACK IN THE 
; 444 : : IDLE STATE, OUTSTANDING COMMANDS MAY BE LOST. 

; 2761 1 ! FORMAL PARAMETERS : 

; e762 1 $ 

; ores H : IMPLICIT INPUTS : BUF_DESCRPTR, BUF _LENGTH 

3 My 

; 2765 1 ! IMPLICIT OUTPUTS : RET_STATUS IS RETURNED AS RECEIVED FROM 

; 2766 1 : REC_STATUS ROUTINE. 

; 2767 1 : 

; 2768 1 ! SIDE EFFECTS : 

; 2769 1 4 

; 2770 1 $e- 

. are © ‘ 

3; 2772 2 begin 

s ets @ 

; 2774 2 local 

;- gym @ TEMP; 

s 277% 2 

; 2777 2 : 

; ore $ : CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT. 
s 27680 2 I_AM_NEX = ZERO; 

ay! 

; ciei § : U@ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 

s 27685 2 SND_ENVELOPE [.CMD_SLOT, MSG LENGTH! = SZ_RED; 

; 2786 2 SND_ENVELOPE [:CMD_SLOT, CREDITS] = ONE; 

s e767 2 SND_ENVELOPE [.CMD_SLOT, MSG tee) = 0; 

; sree $ -ENVELOPE [.CMD_SLOT, CONN_ID) = 2; 

3 cree $ : ! DUP COMMAND ENVELOPE FIELD DEFINITION 

; 2792 2 SND_ENVELOPE [.CMD_SLOT, CMD_LREF]) = .CMD_REF; 

s 2793 2 SND-ENVELOPE [:CMD-SLOT, CMD-HREF) = ZERO; 

; 2794 2 SND_ENVELOPE (.CMD_SLOT, UN_LUSED] = ZERO; 

s 2795 2 SND_ENVELOPE [ .CMD_ ’ = ZERO; 

s 279% 2 SND_ENVELOPE [.CMD_SLOT, OPCODE) = e Agee! 

s 2797 2 SNO_ENVELOPE [.CMD_SLOT, UQRSVD] = ERO: 

+ 2798 . SND_ENVELOPE [.CMD_SLOT, MODIFIER ;2 ZERO; 

é 

; 2 

3 2 

; 2 





— 
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: 2803 2 SND_ENVELOPE [.CMD_SLOT, BD_2) = ZERO: 1 BUFFER DESCRIPTOR WORD 2 
; 380a 3 SND“ENVELOPE {{CMD“SLOT, BD-3) = ZERO, i BUFFER DESCRIPTOR WORD 3 
; 580s 3 SND “ENVELOPE “SLOT: 8074) = ZERO, i BUFFER DESCRIPTOR WORD 4 
: 2606 2 SND-ENVELOPE [\CHOUSLOT, BD-5] = ZERO: i BUFFER DESCRIPTOR WORD 

: 2808 3 SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 

; 2810 2 SEND.RING [.CMD_SLOT, OWN_BIT) = PORT_OWNED; 

; 2612 2 ! READ THE IP REGISTER TO STIMULATE PORT POLLING. 

: 2814 2 TEMP = .RC25_ADDR (RCIP, RC_ALLI: 

; 2816 : GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 

; dae 3 GET_CMD_SLOT (); 

3 2819 2 ! 

; 5820 3 i CHECK THE END PACKET FOR GOOD STATUS 

; Seni 3 

. i 


return REC_STATUS (); ! RETURN THE STATUS 


SBTTL REC.DATA AZTEC GLOBAL ROUTINE 


005746 REC.DATA: : 
1ST -(SP) ' 2746 
005067 0000006 CLR 1. AM,NEX : 2780 
016746 0000006 MOV CMO. SLOT, -(SP) ; 2785 
012746 000054 MOV 054 (SP) p} 
004767 0000006 JSR PC, 
012760 000034 0000006 MOV 034, END-E ENVELOPE(RO) 
016716 0000006 MOV CMD: SLOT, (SP) : 2786 
012746 000054 MOV o54 step} 
004767 0000006 JSR ¢,6L $MUL 
142760 000017 0000026 BICB O17 SND ENVELOPE +2(RO) 
152760 000001 000002G BISB 1, 5ND.ENVELOPE-2(RO) 
016716 0000006 MOV CMO. SLOT, (SP) ; 2787 
012746 000054 MOV #54. -(SP) 
004767 0000006 JSR PC, BL $MUL 
142760 000360 0000026 BICB $0360, SND. ENVELOPE+2(RO) 
016716 0000006 MOV CMO. SLOT. (SP) , 2788 
012746 000054 MOV o54 mes 
004767 0000006 JSR C, BL $MUL 
112760 000002 0000036 MOVB SND. gENVELOPE. 3(RO) 
016716 0000006 MOV a ; 2792 
012746 000054 MOV it 
004767 0000006 JSR +a L $MUL 
016760 0000006 0000046 MOV CHO REF SND ENVELOPE +«4(RO) 
016716 0000006 MOV CMD: SLOT, (SP) 
012746 000054 MOV 654 “(SP 
004767 0000006 JSR L $MUL 
005060 0000066 CLR Sho” ENVELOPE 6(RO) 
016716 0000006 MOV CMD: SLOT, (SP) 
012746 000054 MOV a34, -(3P) 
004767 0000006 JSR PC, BL $MUL 
060 0000106 CLR SNO . ENVELOPE +10(RO) 


005 
016716 0000006 MOV CMD. SLOT, (SP) 
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000054 


000000G 
100000 000002 
000000G 000050 
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27-Mar-1985 15:23:34 VAX-11 Bli 4.0-57 Page 58 
11-Jan-1985 08:19:19 _USER$1:(AZ tec. CzRCEC IZRCF CO. B16;1 (21) 
454 (SP) 
CN” ENVELOPE «12(R0) 
CHD.S (SP) ' 2796 
454 (SP3 ait 
05, SND. ENVELOPE +14(RO) 
CMO. SLOT, (SP) : 2797 
054, -(SP) 
PC, BL SMUL 
SNO.. ENVELOPE +15(RO) 
CMD: SLOT, (SP) : 2798 
o54 ~(SP) 
L$MUL 
Sno” ENVELOPE « 16(RO) 
CMD: SLOT, (SP) : 2799 
854, - CSP} 
L$MUL 
Bytes COUNT , SND. ENVELOPE +20(RO) 
CMD. SLOT, (SP) : 2800 
e34 -(SP) 
C, BL $MUL 
SMO” ENVELOPE +22(RO) 
CMO: SLOT, (SP) ; 2801 
o54 = (SP3 
BUF DEStRPTR SND. ENVELOPE +24(RO) 
CMO; SLOT, (SP) ; 2802 
o54 “SP 
end” ENVELOPE +26(RO) 
CHD. SLO LOT (SP ) : 2803 


L$MUL 
a 
CHD. “SLOT (SP) : 


Pt, L$MUL 
SND. ENVELOPE « 32(RO) 


CMD: SLOT, (SP) : 
54. (SP) CSP} 

SND. ENVELOPE. 34(RO) 

CHD. SL LOT (SP ) : 


L $MUL 
PBL IFUL ao) 
CHD. SLOT RO : 


RO 
eases RING,RO 


00000, 2¢RO) 
SRC? ADDR, 30 SP) 
50(SP),R 
PC,GET. on. SLOT 
PC,REC.STATUS 
#52,SP 





SEQ 0153 


2804 
2805 


2806 


#,RC.REG 
RC.REG, TEMP 





[— 


ZRCFR2 MISCELLANEOUS sey Ons 
vo3.0 AZTEC GLOBAL ROU 


000564 000207 


; Routine Size: 187 words, : 
; Maximum stack depth per invocation: 


' 
@ 
f 
wi 
~ 


Routine Base: 
22 word 


RTS PC 


ABSCODE + 4730 
Ss 


Lie 


27-Mar-1985 
11-Jan-1985 


1 
0 


5:23:3 
8:19:1 





4 
9 


X-11 
YSERA 


Bli 
(AZ 


Tec. CZRCECIZRCFC2, B16;1 





on age TE an ea 
SEQ 0155 


RESERV 
! TIME AND DATE WORD 0 


ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 Page 60 
v03.0 AZTEC GLOBAL ROUTINE 11-Jen-1985 08:19:19 USER$1:(AZTE EC. cance ZRCF C2, B16;1 (22) 
; 2627 1 globel routine SET_CNTLR_CHAR = 

> 2628 1 

3 2629 1 te 

:; 2830 1 i FUNCTION gig tee 

; 28631 1 ' THE SET CONTROLLER CHARACTER COMPIAND IS USED 10 SET HOST SETTABLE 

: 28632 1 ' UNIT CHARACTERISTICS uo OBTAIN THOSE UNIT CHARACTERISTICS THAT 

: 2633 1 ' ARE ESSENTIAL FOR PROPER CLASS DRIVER OPERATION. S COMMAND 

: 2 1 : NEVER ALTERS THE UNIT 3 STATE ("UNIT-ONLINE”, “UNIT-AVAILABLE”, 

3 et hy : : “UNIT-OFFLINE”). 

3 ° 

; 2837 1 ! FORMAL PARAMETERS : 

>; 2638 1 ‘ - NONE - 

; 28639 1 : 

; 2840 1 ! IMPLICIT INPUTS : 

3 2641 1 : 

: 2842 1 ! INPLICIT OUTPUTS : 

; 2843 1 : - NONE - 

3 2844 1 : 

: 2645 1 ' COMPLETEDTION CODES 

: gone } : RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 

é . 

; 2648 1 : 

>: 2649 1 ' SIDE EFFECTS : 

; 2850 1 : ANY PREVIOUSLY DEFINED CONTROLLER CHARACTERISTICS WILL POSSIBLY 

; 2851 1 ' BE ALTERED AFTERE EXECUTION OF THEIS COMMAND. 

; 2852 1 $-- 

: 2653 1 . 

>; 2654 2 begin 

; 2855 2 

; 2856 2 locel 

: 2857 2 TEMP ; 

: 28 2 

; 2859 2 : 

; geeo $ : U@ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 

> 2862 2 SNO_ENVELOPE [.CMD_SLOT, wsG aya » $2. SCC; ' LOAD MESSAGE LENGTH 
; 2863 2 SND_ENVELOPE [.CMD SLOT, CREDITS) = ONE; * LOAD CREDIT 

>; 2864 2 SNO_ENVELOPE [.CMD_SLOT, ase Ht * 0; * MESSAGE TYPE ‘SEQUENTIAL’ 
; gues g : SNO-ENVELOPE [.CMO~SLOT. CONN_ID) = 0; ! DEFINE CONNECTION ID ‘DUP’ 
S 4 

; 2867 2 : MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION 

; 2869 2 SND_ENVELOPE [.CMD_SLOT, CMD_LREF) = .CMO_REF; 'LOAD COMMAND REF ERENCE r) 
; 2870 2 SND_ENVELOPE “CMO "SLOT. CMD"“HREF} = ZERO; ! ZERO HI ORDER CMD R 

; 2871 2 SNO_ENVELOPE [.CMO_SLOT, UN_CUSED] = ZERO; ! NOT USED IN DUP O MPL THENT , 
; 2872 2 SNO_ENVELOPE [.CMD SLOT, UN_HUSED) = ZERO; ! NOT USED IN DUP IMPLIMENT. 
; 2873 2 SND_ENVELOPE [.CMD_SLOT, OPCODE) = OP_SCC; ! DEFINE COMMAND OP 

; 2874 2 SNO_ENVELOPE [.CMD_ st OT. U@RSVD) = ZERO, ! NOT USE 

: e873 ‘ SND_ENVELOPE [.CMD_SLOT, MODIFIER) = ZERO; ! DEFINE CMD MODIFIERS 

° + 

; eer? ¢ : COMMAND SPECIFIC COMMAND ENVELOPE FIELD DEFINITION 

3 3 

; 2879 2 SNO_ENVELOPE [.CMD_SLOT, MSCP VER) «= "zen ! MSCP VERSION 

: 28 2 SND_ENVELOPE [.CMD_SLOT, CTL FLAGS) « ZERO; ! CONTROLLER GLAGS 

; 2881 ¢ SND_ENVELOPE [.CMD_ " Tt Tou WOST TIMEOUT VALUE 

$ 2 : 


SND ENVELOPE [.CMD_SLOT, 1$D_0) = ZERO; 





[— 











Nie 





SEQ 0156 
P 


ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 | VAX-11 Blise-16 V4.0-57 age 61 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19  USER#1:(AZTEC.CZRCFCJZRCFC2. B16;1 (22) 
2 .CMO_SLOT, 180.1) = ZERO; ! TIME AND DATE WORD 1 
2 SND; SN “ENVELOPE “CMO-SLOT. 180-2) = ZERO, ! TIME AND DATE WORD 2 
2 ELOPE [:CMD-SLOT. 180-3) = ZERO ! TIME AND DATE WORD 3 
2 SND; ENVELOPE “CMO-SLOT; COPTL = ZERO, | CNTL DEP PARAMETER LO WORD 
é SND ENVELOPE [.CMD_SLOT, COP_HI) * ZERO; |! CNTL DEP PARAMETER HI WORD 
: ! SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
2 SEND_RING [.CMD_SLOT, OWN.BIT) = PORT_OWNED; 
: ! READ THE IP REGISTER TO STIMULATE PORT POLLING. 
: TEMP = .RC25_ADDR (RCIP, RC_ALL); 
é ! GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
2 GET_CMO_SLOT (); 
2 ! CHECK THE END PACKET FOR GOOD STATUS 
2 return REC_STATUS (); ! RETURN THE STATUS 
1 end; 
.SBTTL SET.CNTLR.CHAR AZTEC GLOBAL ROUTINE 
005746 SET. CNTLR. CHAR: : 
TST -(SP) : 2827 
016746 0000006 MOV CMD. SLOT, -(SP) i 2862 
012746 000054 MOV 654, -(SP) 
004767 0000006 JSR PC, BL §MUL 
012760 000040 0000006 MOV 046, SND. ENVELOPE(RO) 
016716 0000006 MOV CMD: SLOT, (SP) : 2863 
012746 000054 MOV 654, -(SP) 
004767 0000006 JSR PC, BL $MUL 
142760 000017 0000026 BICB eit SND. ENVELOPE +2(RO) 
152760 000001 0000026 BISB 1, ND sENVELOPE +2(RO) 
016716 0000006 MOV end. sto : 2864 
012746 000054 MOV (Sp ca 
004767 0000006 JSR bee 
142760 000360 0000026 BICB 9360. SNOT ENVELOPE +2(RO) 
016716 0000006 MOV CMO. SLOT. (SP) : 2865 
012746 000054 MOV 054. -(SP) 
004767 0000006 JSR PC, OL $MUL 
105060 000003G CLRB = SND. ENVELOPE-3(RO) 
016716 0000006 MOV CMD: SLOT, (SP) ; 2869 
012746 000054 MOV 54 (SP) 
004767 0000006 JSR 
16760 0000006 0000046 MOV ChO” hers SND. ENVELOPE+4(RO) 
016716 0000006 MOV CMD; SLOT, (SP) : 2870 
012746 000054 MOV 64, - - sp) 
004767 0000006 JSR PC, 
005060 0000066 CLR SND. ENVELOPE +6(R0) 
016716 000000G MOV CMD: SLOT, (SP) , 2871 
012746 000054 MOV a4, (SP) 
004767 0000006 JSR $HUL 
0000106 CLR GNO ENVET OPE +10(R0) 
016716 0000006 MOV CMD: SLOT, (SP) : 2872 





v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08 
000204 012746 000054 MOV 054, -(SP) 

000210 004767 000000C JSR PC, BL SMUL 

000214 005060 0000126 CLR SNO. ENVELOPE +12(RO) 
000220 016716 000000G HOV CMO. SLOT, (SP) 
000224 012746 000054 MOV 654. -(SP) 

000230 004767 0000006 JSR PC. bu §MUL 

000234 112760 000004 0000146 MOVB SNO. ENVELOPE +14(RO) 
000242 016716 0000006 MOV crs. SLOT, ( 

000246 012746 000054 MOV Cops > 

000252 004767 000000G JSR arte $MUL 

000256 105060 000015G CLRB an ENVELOPE + 15(RO) 
000262 016716 000000G MOV CMO: SLOT, (SP) 
000266 012746 000054 MOV e34 -(SP5 

000272 004767 000000G JSR C, OL $MUL 

000276 005060 0000166 CLR Sn” ENVELOPE + 16(RO) 
000302 016716 000000G MOV CMO. SLOT, (SP) 
000306 012746 000054 MOV 654 “Sp 

000312 004767 000000G JSR PC, BL $MUL 

000316 005060 0000206 CLR SND. ENVELOPE +20(RO) 
000322 016716 000000G MOV CMO. SLOT, (SP) 
000326 012746 000054 MOV 54 , (SP) 

000332 004767 000000G JSR LSMUL 

000336 005060 0000226 CLR end” ENVELOPE +22(RO) 
000342 016716 000000G MOV CMO: SLOT, (SP) 
000346 012746 000054 MOV os4 ;=(SP5 

000352 004767 0000006 JSR C, BL $MUL 

000356 005060 0000246 CLR SND ENVELOPE +26(RO) 
000362 016716 000000G MOV CMD: SLOT, (SP) 
000366 012746 000054 MOV es4 -(SP) 

000372 004767 0000006 JSR C, BL $MUL 

000376 005060 0000266 CLR Sho” ENVELOPE «26(RO) 
000402 016716 000000G MOV CMD. SLOT, (SP) 
000406 012746 000054 MOV e54 oP) 

000412 004767 000000G JSR ¢, BL $MUL 

000416 005060 000030G CLR SHO ENVELOPE» 30(RO) 
000422 916716 000000G MOV CMO.SLOT,(SP) 
000426 012746 000054 MOV $54, -(SP) 

000432 004767 000000G JSR PC, BL $MUL 

000436 005060 0000326 CLR SNO . ENVELOPE + 32(RO) 
000442 016716 000000G MOV CMD. SLOT, (SP) 
000446 012746 000054 MOV 634, -(5P) 

000452 004767 0000006 JSR C, BL $MUL 

000456 005060 0000346 CLR SHB ENVELOPE» 34(RO) 
000462 016716 0000006 MOV CMD. SLOT, (SP) 
000466 012746 000054 MOV 054 > =(SP) 

000472 004767 000000G JSR C,6L $MUL 

000476 005060 0000366 CLR Sho” ENVELOPE +36(RO) 
000502 016716 0000006 MOV CMO. SLOT, (SP) 
000506 012746 000054 MOV o4 *=(SP) 

000512 004767 0000006 JSR C, BL $MUL 

000516 005060 0000406 CLR Sno” ENVELOPE +40(RO) 
000522 016716 0000006 MOV CMD. SLOT, (SP) 
000526 012746 000054 MOV 054 O35 

000532 004767 000000G JSR PCB SUL 

000536 005060 0000426 CLR SND. ENVELOPE +42(RO) 
000542 016700 0000006 MOV CMD: SLOT, RO 

000546 006300 ASL RO 





MISCELLANEOUS SECTIONS 
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27-Mar-1985 He 334 VAX-11 Blise-16 ey 


719 USER$1: (AZTEC. CZRCFCIZRCF C2. B16;1 oF 22) 
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ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Bliss-16 V4.0-579 = Sng 63 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19  USER$1:[AZTEC. CZRCEC IZRCFC2. B16;1 09 23) 
000550 006300 ASL 
000552 066700 0000006 ADD SEN RI RING,R 
000556 052760 100000 000002 BIS StRO 
017766 0000006 000054 MOV Hat Cos ROR. S2¢sp) 
000572 016600 000054 MOV 54(SP),R 
000576 004767 000000V JSR PC,GET.CMD. SLOT 
000602 004767 000000V JSR PC REC. STATUS 
000606 062706 000056 ADD 056,SP 
000612 000207 RTS pC 


: Routine Size: 198 words, Routine Base: ABSCODE + 5516 
; Maximum stack depth per invocation: 24 words 
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MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0 = boas 
AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1;: (AZTEC. CZRCECIZRCF C2. B16;1 (23) 


global routine AVAILABLE = 
ee 
! FUNCTIONAL aati t te 
THE AVAILABLE COMMAND IS yee? TO SET THE UNIT-ABAILABLE WHEN 
L_OUTSTANDING COMMA NOS FOR THE SPECIFIED UNIT ARE COMPLETED. 
F THE "SPIN-DOWN” MODIFIER IS SPECIFIED, THE DISK SPINS DOWN 
AND ITS HEADS ARE UNLOADED. 


FORMAL PARAMETERS : 
IMPLICIT INPUTS : 


IMPLICIT OUTPUTS : 
SIDE EFFECTS : 


PLATTER NUMBER (UNIT) 
RET_STATUS 


begin 
local 
TEMP ; 


UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 


SND_ENVELOPE [.CMD_SLOT, MSG 3 e —~ AVL ; ! LOAD MESSAGE LENGTH 
SNO_ENVELOPE [:CMD_SLOT, CREDIT ! LOAD CREDIT SIZE 
SND_ENVELOPE [.CMD_SLOT, MSG Tyee) ° my MESSAGE TYPE * SEQUENTIAL ’ 
SND_ENVELOPE [.CMD_SLOT, CONN_ID) = 0; ! DEFINE CONNECTION ID ‘DUP’ 


, 
: MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION 


SND_ENVELOPE [.CMD_SLOT, CMD_LREF] = .CMD_ !LOAD COMMAND ~— % 
SND_ENVELOPE [:CMD_SLOT, CMD-HREF) = — ! ZERO HI ORDER CMD REF 
SND_ENVELOPE [.CMD_SLOT, UN_LUSED] = .UNIT; ! SELECTE 

SNO_ENVELOPE [.CMD_SLOT, ) = ZERO; ! NOT USED IN DUP IMPL IMENT . 
SND_ENVELOPE [.CMD-SLOT, OPCODE) = OP_AVL; ! DEFINE COMMAND OPCODE 
SND_ENVELOPE [.CMD_SLOT, UQRSVD) = ZERO; ! NOT 


SND_ENVELOPE [.CMD_SLOT, MODIFIER] = MD_SPD; ! DEFINE CMD MODIFIERS 
SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
: SEND_RING [.CMD_SLOT, OWN_BIT) = PORT_OWNED; 
! READ THE IP REGISTER TO STIMULATE PORT POLLING. 
TEMP = .RC25_ADDR (RCIP, RC_ALL]; 
: GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
GET_CMD_SLOT (); 


CHECK THE END PACKET FOR GOOD STATUS 
return REC_STATUS (); ! RETURN THE STATUS 





CELLANEOUS SECTIONS 
EC GLOBAL ROUTINE 


end; 


MIS 
AZT 


000004G 


0000106 


000014G 


000016G 


000000G 
100000 _ 000002 
000000G 000030 


-SBTTL AVAILABLE AZTEC GLOBAL ROUTINE 


cite 


-(SP) 
CMD. SLOT, -(SP) 
#54. -(SP) 
PC, BL $MUL 

014, SND. ENVELOPE(RO) 
CMD. ase” 


L$MUL 
alt, SND. ENVELOPE +2(RO) 
1 SHO. ENV VELOPE +2(RO) 


LOT, ( 
oa O35 


PC, OL $MUL 
9360. SND. -ENVELOPE «2(RO) 
cHD. §LOT. (SP) 


be. L$MUL 
GNO. ENVELOPE + 3(RO) 

CMD. SLOT, (SP) 

54. (Se) 

CHOe beet SND. ENVELOPE+4(RO) 
CMO: SLOT, (SP) 

054. -(SP) 


CL $MUL 
SND. ENVELOPE +6(RO) 
CMD: SLOT, (SP) 

54, -(SP) 


$HUL 
Unies SND. ENVELOPE +10(RO) 
cHD. SL LOT (SP ) 


be. L$MUL 
GNO ENVELOPE 12(RO) 
CMD: SLOT, (SP) 

054. -(SP) 

PC, BL $MUL 

#10, SND. ENVELOPE +14(RO) 
CMD: SLOT, (SP) 

054,-(SP) 


PC, BL$MUL 
SND. ENVELOPE +15(RO) 
CMD: SLOT, (SP) 


PC, BL $MUL 
#1, SND. ENVELOPE+16(RO) 
CHD. SLOT,RO 


RO 

SEND .RING,RO 
#100000, 2(RO) 
@RC25. ADDR, 30( SP) 





VAX-11 


Phice 
USER$1:[AZTE 


; *,RC.REG 


9-16 
EC. C2RC CRC I2RCFC2. B16;1 


%. 


SE0,0160 
09 03) 


2909 
2935 


2936 


2937 
2938 
2982 
2943 
2944 
2945 
2946 
2947 
2948 


2952 


2956 
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ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4,0-579 vate ny 
vo3.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1;(AZTEC.CZRCFCJZRCFC2.616;1 — (23) 
000336 016600 000030 MOV bo sf ot RO s RC.REG, TEMP 

000342 004767 O00000V JSR PC,GET.CMD. SLOT ; 

000346 004767 000000V JSR PC,REC.STATUS ; 

000352 062706 000032 ADD 032, SP ; 

000356 000207 RTS PC 


; Routine Size: 120 words, Routine Base: ABSCODE + 6332 
; Maximum stack depth per invocation: 14 words 


: 2967 1 
: 2968 1 : 
; 2969 1 
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SEQ 0162 
ZRCFR2 MU SERL LANE OUS Bey TIONS 27-Mar-1985 15:23:34 VAX-11 Bli 218 579 age 67 
vo3.0 AZTEC GLOBAL ROU 11-Jen-1985 08:19:19 USER$1: (AZ LCZRCECIZRCFC2, B16;1 (24) 
; 2970 1 global routine ON_LINE = 
; e971 1 
:; e972 1 te 
s ate & : FUNCTIONAL DESCRIPTION : 
; e974 1 ! THE OMMAND IS USED TO BRING A UNIT “UNIT-ONLINE, SET 
; e975 1 ' HOST SETTABLE UNIT CHARACTERISTICS AND OBTAIN THOSE UNIT 
; 2976 1 $ CHARACTERISTICS THAT ARE ESSENTIAL FOR PROPER CLASS ogy 
; e977 1 ! OPERATION. THE UNIT IS SPUN-UP, IF NECESSARY, AND IS HEADS 
; 2978 1 : ARE LOADED PRIOR T0 RETURNING THE ONLINE COMMAND’S END MESSAGE. 
; e979 1 H HOST SETTABLE CHARACTERISTICS —, WERE wn ke 
; 2980 1 H SETTABLE CHARACTERISTICS ARE SET AFTER THE UNIT HAS BEEN 
3 ooes : : SUCCESSFULLY SPUN-UP AND ANY OTHER VALIDITY CHECKS HAVE SUCCEDED. 
; 2983 1 ! FORMAL PARAMETERS : 
; 2984 1 : - NONE - 
>: 2985 1 $ 
; 2986 1 $ IMPLICIT INPUTS : 
; 2987 1 $ 
>; 2988 1 § INPLICIT OUTPUTS : 
>; 2989 1 $ RET_STATUS 
; 2990 1 : 
> e991 1 ' COMPLETEDTION CODES : 
3 $338 : : RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 
> 2994 1 : 
; e995 1 ! SIDE EFFECTS : 
>: 2996 1 H ANY PREVIOUSLY DEFINED CONTROLLER CHARACTERISTICS WILL POSSIBLY 
> 2997 1 ' BE ALTERED AFTERE EXECUTION OF THEIS COMMAND. 
>; 2998 1 !-- 
s ep i E 
; 3000 2 begin 
; 3001 2 
; 3002 2 local 
6 3003 2 TEMP ; 
>; 3004 2 
s 3005 2 H 
3 sont ¢ : UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 
; 3008 2 SND_ENVELOPE [.CMD_SLOT, MSG ae = $27.0 ' LOAD MESSAGE LENGTH 
; 3009 2 SND_ENVELOPE [CMD _ oT. C CREOIT r-y " ‘LOAD CREDIT SIZE 
; 3010 2 SND_ENVELOPE [.CMD_SLOT, MSG TYPE} = ! MESSAGE TYPE ‘SEQUENT TAL 
$ seis $ ; SND_ENVELOPE [.CMD_SLOT, CONN_ID) = . ! DEFINE CONNECTION ID DUP! 
3 ot $ : MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION 
>; 3015 2 SND_ENVELOPE [.CMD_SLOT, CMD_LREF]) = .CMD_REF; 'LOAD COMMAND REFERENCE r 
; 3016 2 SND_ENVELOPE “CMD~SLOT. CMD_HREF) = Ze RO; !  2ERO HI ORDER CMD REF 
; 3017 2 SNO_ENVELOPE [.CMD_SLOT, UN_CUSED) = .UNIT; ! SELECTED UNIT 
; 3018 2 SNO_ENVELOPE [.CMD_SLOT, ED) «= ae ' NOT USED IN DUP IMPLIMENT. 
; 3019 2 SND_ENVELOPE [.CMD_SLOT, OPC 4 = Ora DEF ~~. rai ND OPCODE 
s 3020 2 SND_ENVELOPE [.CMD_SLOT, UQRSVD) = OF ! NOT U 
5 S055 : , SND_ENVELOPE [.CMD_ SLOT. MODIFIER) : — Oo; ! DEFINES BHD MODIFIERS 
$ anes ¢ : COMMAND SPECIFIC COMMAND ENVELOPE FIELD DEFINITION 
; 3025 2 SND_ENVELOPE [.CMD_SLOT, RSV$D) = ZERO; § RESERVED 
; 3026 2 SND_ENVELOPE [.CMD_SLOT, UNT_FLAGS]) = PERO; ! UNIT FLAG FIELD - 











H13 


SEQ 0163 
MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 P 
AZTEC GLOBAL ROUTINE 11-Jen-1985 08:19:19 USER$1; racte TEC. C2RC CFC IZRCF C2. B16;1 99 08) 
SNO_ENVELOPE [.CMD_SLOT, RSVD$0) = ZERO; ! RESERVED FIELD 
SND_ENVELOPE [.CMD_SLOT, RSVD$1) = ZERO; ! RESERVED FIELD 
« OPE |.CMD_SLOT, RSVD$2] = ZERO; ! RESERVED FIELD 
SND_ENVELOPE [.CMD_SLOT, RSVD$3] = ZERO; ! RESERVED FIELD 
SND _ENVEL OP! CMO_SLOT, RSVD$4) = ZERO; ! RESERVED FIELD 
- LOPE [.CMD_SLOT, RSVD$S5) © ZERO; ! RESERVED FIELD 
-ENVEL -CMO_SLOT, 2 * ZERO; ! DEVICE DEPENDENT PARAMETER 
SNO_ENVELOPE [.CMD_SLOT, DDP HI} = ZERO; ! DEVICE DEPENDENT PARAMETER 
SNO_ENVELOPE [.CMD-SLOT, SHADOW UNIT) = ZERO; ! SHADOW UNIT 
SND_ENVEL OPE .CMD_SLOT, COPY_SPEED) = ZERO; ! COPY SPEED 


SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT 10 THE PORT. 
SEND_RING {.CMD_SLOT, OWN_BIT) = PORT_OWNED; 

: READ THE IP REGISTER TO STIMULATE PORT POLLING. 

TEMP = .RC25_ADDR (RCIP, RC_ALL]; 

: GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 

GET -CMD_SLOT (); 

' : CHECK THE END PACKET FOR GOOD STATUS 


return REC_STAIUS (); ! RETURN THE STATUS 
eng; 


POPP POP PoP No Popo PoP Popo fo fofefolfolfofofofofofory 


-SBTTL ON.LINE AZTEC GLOBAL ROUTINE 
5746 ON.LINE: ; 


TST -(SP) 5 
016746 0000006 MOV CMD. SLOT, -(SP) ; 
012746 000054 MOV $54. -(SP) 
004767 0000006 JSR PC, BL $MUL 
012760 000044 0000006 MOV 044, SND. ENVELOPE(RO) 
016716 000000G MOV CMD: SLOT, (SP) : 
012746 000054 MOV #54, -(SP) 
004767 0000006 JSR PC, BL $MUL 
142760 000017 0000026 BICB 17,SND.ENVELOPE-2(RO) 
152760 000001 0000026 BISB 1, 5ND.ENVELOPE+2(RO) 
016716 0000006 MOV CMD. SLOT, (SP) ‘ 
012746 000054 MOV 054 SP) 
004767 0000006 JSR PC, 
42760 000360 0000026 BICB 0360, SN. ENVELOPE. 2(RO) 
016716 0000006 MOV MD. SLO , 
012746 000054 MOV 4 = top + 
004767 0000006 JSR PC, BL $MUL 
105060 000003G CLRB —s SND. ENVELOPE ®3(RO) 
016716 0000006 MOV CMD: SLOT, (SP) ; 
012746 000054 MOV 654, (SP) 
004767 0000006 JSR PC,BL$ 
016760 000000G 0000046 MOV CMO. hercs SND .ENVELOPE+4(RO) 
016716 0000006 MOV CMD: SLOT, (SP) 
012746 000054 MOV 054. -(SP) 
004767 JSR 


000000G PC, BL $MUL 
005060 0000066 CLR SND, ENVELOPE +6( RO) 
















113 





SEQ 0164 
MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bli Page 69 
AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1:(AZ cE zRckcizReFC2. B16;1 (24) 
016716 0000006 MOV CMD. SLOT, (SP) ' 
012746 000054 MOV 054. -(SP) 
004767 0000006 JSR PC, BL SMUL 
016760 0000006 0000106 MOV UNIT, SND. ENVELOPE +10(RO) 
016716 0000006 MOV CMO. SLOT, (SP) 
012746 000054 MOV 454 mee 
004767 0000006 JSR L$MUL 
005060 0000126 CLR a ENVELOPE +12(RO) 
016716 0000006 MOV CMD; SLOT, (SP) 
012746 000054 MOV 054 “(SP 
004767 0000006 JSR PC, BL $MUL 
112760 000011 0000146 MOVB @11, SND. ENVELOPE 14(RO) 
016716 0000006 MOV CMO: SLOT, (SP) 
012746 000054 MOV 054, -(SP) 
004767 0000006 JSR PC, BL $MUL 
105060 000015G CLRB = SND. ENVELOPE-15(RO) 
016716 0000006 MOV CMD. SLOT, (SP) 
012746 000054 MOV $54, -(SP) 
004767 0000006 JSR PC, BL $MUL 
005060 000016G CLR SND. ENVELOPE + 16(RO) 
016716 0000006 MOV CMO. SLOT, (SP) 
012746 000054 MOV e34 ,-(5P3 
004767 0000006 JSR 
005060 0000206 CLR Sno” ENVELOPE +20(RO) 
016716 0000006 MOV CMD. SLOT, (SP) 
012746 000054 MOV o54 (SP) 
004767 000000G JSR $MUL 
005060 0000226 CLR SN ENVELOPE -22(0) 
016716 000000G MOV CMD; SLOT, (SP) 
012746 000054 MOV g54 (3) 
004767 0000006 JSR 
005060 0000246 CLR SNOT ENVELOPE +24(RO) 
016716 0000006 MOV CMD. SLOT, (SP) 
012746 000054 MOV 654 SPS 
004767 0000006 JSR PC, BL $MUL 
005060 0000266 CLR SND. ENVELOPE +26(RO) 
016716 0000006 MOV CMD. SLOT, (SP) 
012746 000054 MOV 054, - CSP} 
004767 0000006 JSR PC, BL $MUL 
005060 0000306 CLR SND. ENVELOPE « 30(RO) 
016716 0000006 HOV CMD; SLOT, (SP) 
012746 000054 MOV $54; -(SP3 
004767 0000006 JSR PC, BL $MUL 
005060 0000326 CLR SND. ENVELOPE» 32(RO) 
016716 0000006 MOV CHD: SLOT , (SP) 
012746 000054 MOV ap PS 
004767 0000006 JSR pe. BL $MUL 
005060 0000346 CLR SND. ENVELOPE + 34(RO) 
016716 0000006 MOV CMD. SLOT, (SP) 
012746 000054 MOV $54. ety 
004767 0000006 JSR L $MUL 
005060 0000366 CLR SNS” ENVELOPE « 36(RO) 
016716 0000006 MOV CMD; SLOT, (SP) 
012746 000054 MOV 054 a, CSP) 
004767 0000006 JSR PC, BL $MUL 
005060 0000406 CLR SNO.. ENVELOPE +40(RO) 


016716 000000G MOV CMD.SLOT,(SP) 
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SEQ 0165 


ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Bliss-16 V4.0-579 Page 70 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19  USER$1: (AZTEC. CZRCFCJZRCFC2.B16;1 (24) 
000530 012746 000054 MOV 454 4sP) 
000534 004767 0000006 JSR L$MUL 
000540 005060 0000426 CLR ono” ENVELOPE © 42(RO) 
000544 016716 0000006 MOV CMD: SLOT, (SP) ' 3035 
000550 012746 000054 MOV 54 85 
000554 004767 9000006 JSR L$MUL 
005060 000044 CLR Sno” ENVELOPE 44(RO) 
000564 016716 0000006 MOV CMD: SLOT, (SP) , 3036 
000570 012746 000054 MOV 54 (3p) 
000574 004767 0000006 JSR $MUL 
00 0000466 CLR aS eal 
016700 0000006 MOV MD. SLOT, RO : 3040 
000610 ASL 
000612 006300 ASL Ro 
000614 066700 0000006 ADD SEND. RING, RO 
000620 052760 100000 000002 BIS #100000, 2¢RO) 
000626 017766 0000006 000060 MOV aRC25. NOOR 60( SP) #,RC.REG 3044 
000634 016600 000060 MOV 60(SP),RO ré. REG, TEMP 
000640 004767 000000V JSR PC,GET.CMD. SLOT 
004767 000000V JSR PC. REC. STATUS 
000650 062706 000062 ADD 062,SP 
000654 000207 RTS 


; Routine Size: 215 words, Routine Base: ABSCODE + 6712 
: Maximum steck depth per invocation: 26 words 
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SEQ 0 
ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-1 oon” 71 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1:(AZTEC. Concer IZRCFC2, B16;1 (25) 
: 3057 1 global routine READ_CMD = 
: 3058 1 ' 
; 3059 1 ' FUNCTIONAL, DESCRIPTION 
; 3060 1 ‘ THER EAD COMMAND IS USED TO READ FROM THE UNIT AND TRANSFER 
>; 3061 1 ' THE HOST BUFFER. READ_CMD MAY BE CONSIDERED AS SEEK COMMAND 
; 3062 1 : Ir THE BYTE_COUNT WAS ZERO. 
>; 3063 1 : F THE FLAG TIP CONTAINS ALL ONES, THEN THIS ROUTINE WILL NOT 
; 3064 1 : CALL REC STATUS AND WAIT FOR END PACKET STATUS INFO. THIS IS 
> 3065 1 ' EEK COMMAND T ROLLER IN SOME TESTS 
> 3066 1 ‘ IF CMOD CONTAINS MO_EXP BIT AS THE COMMAND MODI THE 
; 3067 1 : SEEKS WILL BE DONE BY v He CONTROLLER IN THE ORDER RECEIVED 
: 3068 i : AND WILL NOT BE OPTIMIZED 
; 3070 1 ' FORMAL PARAMETERS : 
; 3071 1 ‘ - NONE - 
3 3072 1 ! 
; 3073 1 ! IMPLICIT INPUTS : 
; 3074 1 ' BUF _DESCRPTR,BYTE_COUNT, UNIT, LOBN_ST, TIP, 
; 3075 1 ' Mob 
; 307% 1 ! INPLICIT OUTPUTS : 
.) far’ = ' RET_STATUS 
3 3078 1 : 
; 3079 1 ' COMPLETEDTION CODES : 
; 3080 i : RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 
; 3082 1 : 
; 3083 1 ! SIDE EFFECTS : 
; 1 ' - NONE - 
3 3085 t !-- 
; 3087 2 begin 
; 3088 2 
; 3089 2 local 
; 3090 2 TEMP; 
$ 3091 2 
3 3092 2 ! 
; 3095 ¢ ! UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION 
; 3095 2 SND_ENVELOPE [.CMD_SLOT, MSG LENGTH] = SZ_RD; ! LOAD MESSAGE LENGTH 
: 2 SND_ENVELOPE [.CMD_SLOT, CREDIT * Oe: + LOAD CREDIT SIZE 
; 3097 2 SND_ENVELOPE [.CMD_SLOT, iTS) s ! MESSAGE TYP 
3 3098 2 , _ SNDL “ENVELOPE [(.CMD”SLOT, CONA.. ID) = A. ! DEFINE CONNECTION ID 
; 3100 Q ! MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION 
; 3102 2 SND_ENVELOPE [.CMD_SLOT, co. LREF = .CMD_REF; ‘LOAD COMMAND REF ERENCE r) 
; 3103 2 SND-ENVELOPE [.CMD~SLOT, C . ZERO; ! ZERO HI ORDER CMD REF 
; 3104 2 SNO_ENVELOPE [.CMD_SLOT, tn. CUSED = UNIT; ! SELECTED UNIT 
; 3105 2 SND_ENVELOPE [.CMD_SLOT, UN = ZERO; ! NOT USED IN DUP IMPLIMENT. 
; 3106 2 SND_ENVELOPE -CMO"SLOT, OPE ¢- OP_RD; ! DEFINE COMMAND OPCODE 
; 3107 2 SND_ENVELOPE [.CMD SLOT, = ZERO; ! NOT 
3 3108 3 ; SND_ENVELOPE [.CMD_SLOT, UaAsVD} = .,CMOD; ! DEFINE CMD MODIFIERS 
° H 
s 3110 2 ! COMMAND SPECIFIC COMMAND ENVELOPE FIELD DEFINITION 
5 2 
3 2 


SND_ENVELOPE [.CMD_SLOT, BLO_CNT) = .BYTE_COUNT; ! BYTE COUNT LOW WORD 
SND_ENVELOPE [.CMD_SLOT, BHI_CNT) = ZERO; ! BYTE COUNT HIGH WORD 
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SEQ 0167 
ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Blies-16 V4. P 7 
vO3.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19  USER#1: (AZTEC. CoRCECIZREFC2. e631 255 
Ps 3 SNDUENVELOPE | /CHDTStOT: 60-1] S ZEROI nt BUFFER DESCRIBTON FIED eee 
; Sle 5 SNO-ENVELOPE [[EMD-StOT, Bono) = SEROL | BUFFER DESERIBTON FEECD 
1 guy 2 SND_ENVELOPE [.CMD_SLOT. 80-3] = ZERO; ! BUFFER DESCRIBTOR FIELD 
; $iie 2 SNO-ENVELOPE [.CMD-SLOT. BD-4] = ZERO; ! BUFFER DESCRIBTOR FIELD 
> we 2 SNO_ENVELOPE [CMD-SLOT, 80-5) = ZERO; ! BUFFER DESCRIBTOR FIELD 
; 3120 2 SND_ENVELOPE [.CMD_SLOT. LBN.LO) = .LBN.ST; ! LOGICAL BLOCK NUMBER 
; $121 : SND _ENVELOPE “CMO-SLOT, LBN-HI) = ZERO; ! LOGICAL BLOCK NUMBER 
; 3123 : SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 
; $125 2 SEND.RING [.CMO_SLOT, OWN_BIT] = PORT OWNED, 
; 3127 2 : 
: ses : if .TIP eqlu #0'177777' then return RET_STATUS = PAS_CODE; ! IF TIP CONTAINS 
; 3130 2 ' ALL _ONES EXIT HERE 
: 3131 2 ! READ THE IP REGISTER T0 STIMULATE PORT POLLING 
; 3133 2 TeWe /RC25_ADDR [RCIP, RC_ALL); 
; 3135 2 GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 
, sis? 2 GET_CMD_SLOT (); 
3 3138 2 Hy 
+ $132 2 ! CHECK THE END PACKET FOR GOOD STATUS 
; «3141 2 return REC_STATUS (); ! RETURN THE STATUS 
; 63142 1 end; 
.SBTTL READ.CMD AZTEC GLOBAL ROUTINE 
READ.CMD:: 
151 -(SP) ; 3057 
MOV CHD. SLOT -( SP) ; 3095 
MOV ) 
JSR +a BL $MUL 
MOV 040, SND. ENVELOPE(RO) 
MOV CMO: SLOT, (SP) : 3096 
MOV 054. -(SP) 
JSR PC, BL $MUL 
BICB 017, SND. ENVELOPE-2(RO) 
BISB 1,SND.ENVELOPE-2(RO) 
HOV cH. SLOT (SP) : 3097 
JSR PC BL MUL 
BICB 6360, SND. ENVELOPE -2(RO) 
MOV -SLO ; 3098 
MOV 854, -(SP) 
JSR L SMUL 
CLRB Sh ENVELOPE» 3(RO) 
MOV CHD. SLOT .( SP) , 3102 
JSR pe. BL $MUL 
MOV CMO ..REF , SND. ENVELOPE+4(RO) 
MOV CMD: SLOT, (SP) ; 3103 


MOV 054, CSP) 








— 


v0.0" 











000024G 


M13 


27-Mer-198 
11-Jen-198 


unt 


Sno” ENVLOPE +6(RO) 
CHD. SL Orcs SP) , 


LSMUL 
Pe BL SND. ENVELOPE + 10(RO) 
CMO. SLOT, (SP) : 
54 »=(SP) 


L $MUL 
Sno” ENVELOPE: 12(RO) 
CHO. SL LOT (SP ) ; 


pcb. Shu 

041, SND. ENVELOPE-14(RO) 
CMD: SLOT, (SP) 

54, -(SP) 

PC, BL $MUL 

SNO . ENVELOPE - 15(RO) 
CMD: SLOT, (SP) ; 
54 (SP) 

CRED, SH. ENY ENVELOPE. 16(RO) 

o54 (3) 

BYTE COUNT , SND ENVELOPE =20(RO) 
CHO. SLOT, (SP) : 
654. -(SP) 


PC, BL $MUL 
SNO. ENVELOPE +22(RO) 


‘CMD. SLOT, (SP) 3 
r} ) 


PC, BL $MUL 
BUF . DESCRPTR, SND .ENVELOPE +24(RO) 
CHO. SLOT 553 ; 


PC, BL SMUL 
SND . ENVELOPE + 26(RO) 
CMD: SLOT, (SP) 
854 . (Se) 
SMO” ENVELOPE. 30(RO) 
CHO “SLOT (SP) 
-(SP) 
L $MUL 
PBL soceo) 
CMD. SLOT, (SP) 
54.-(SP) 
PC, BL $MUL 
SNO . ENVELOPE + 34(RO) 
CMD: SLOT, (SP) 
o54 -(SP) 


L $MUL 
SMO” ENVELOPE. 36(RO) 
CMD: SLOT, (SP) 

054 mes 


PC BL $MUL 


4 VAX-11 
9 USER$1: 


SEQ 0168 


liss-1 P 7 
Artec ezRcrejznerce.e16;1  °™*c245 


3104 


3106 
3107 
3108 
3112 
3113 


3114 


3115 








3; Routine Size: 
3; Meximum steck 


8 3143 1 
3144 1 
s 3145 1 


MI TSCELL ANE QUS SECTIONS 
AZTEC GLOBAL ROUTINE 


000000G 0000406 
0000006 

000054 

000000G 
0000426 
000000G 


100000 000002 
0000006 177777 
000054 


000000G 000054 1$: 


es: 


214 words, 
depth per invocation: 24 words 


Routine Base: a + 7570 


N13 


27-Mar-1985 15:23:34 
11-Jan-1985 08:19:19 


LON.ST, SND. ENVELOPE-40(RO) 
CMO. SLOT, (SP) 
54,-(SP) 
PC, BL SMUL 
SND. ENVELOPE +42(RO) 
MO. SLOT, RO 


RO 
SEND $0809 S80 

RET. STATUS 

054, SP 

RO 

24 

ORC25. ADDR, 54( SP) 
54(SP),RO 
PC,GET.CMD.SLOT 
PC REC. STATUS 

054, SP 

(3: 





Re. 


lies-16 V 579 
USER: AZTEC. CoRCEC IZRCFC2, 616;1 


RC.REG 
REG, TEMP 





SEQ 0169 - 
998 (25) 


3121 


3128 















B14 





ZRCFB2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 X-11 Blise-16 V 579 oniy ty 7 
vo3.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USERS: TAZTEC. CZRCFCIZRCF C2. B16;1 (26) 


: $146 1 plobel routine GET_UNIT.STATUS = 
; fiat FUNCTIONAL DESCRIPTION 

; 309 1 Ot HE GET UNIT STATUS COMMAND IS USED TO READ THE CURRENT 

; 3902} STATE OF THE: UNITS PLct CONTAIN CHTT CHARACTERESTT ACE, 

; «63152 1 «st FORMAL PARAMETERS : 

ae t - NONE - 

3 3154 1 ! 

; «63155 1 ~~ IMPLICIT INPUTS : 

; 3156 1 ~~ UNIT 

; 3157 1  —-§ INPLICIT OUTPUTS : 

; 358 1 RET STATUS 

; 3159 1 

; 3160 1 —¢ COMPLETEDTION CODES 

; eld} RET_STATUS : RETURN STATUS PASSES BACK TO THE CALLING ROUTINE 

;  31e3 1 ‘ 

; 3168 1 «| SIDE EFFECTS : 

‘a 2 ee ~ NONE - 

3 3166 1 $-- 

3 3167 1 

; 3168 2 begin 

: 3169 2 

3 3170 2 locel 

; 3171 3 TEMP; 

; 3172 2 

3 3173 2 : 

; 3174 2 {UG PORT CORMAND ENVELOPE HEADER FIELD DEFINITION 

; 3176 2 SND ENVELOPE [CHO SLOT, SG LENGTH] = SZ_GUS: ' LOAD MESSAGE LENGTH 
; 3177 3 SND“ENVELOPE [CMD“SLOT, CREDITS) = ONE; ~ ! LOAD CREDIT SIZE 

° 3178 3 SND ENVELOPE [TEPBTScOT: AEE TYRE) econ | MESSAGE T 

: $179 2 | SMDLENVELOPE [“CHD_SLOT, CONN_ID) = 05 | DEFINE CONNECTION ID 
; 3181 2 i MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION 

> 63183 3 ~~ SND_ENVELOPE [.CMD_SLOT, CMD. LREE] = CHD REF LOAD COMMAND. REFERENCE # 
; 3188 2 SND-ENVELOPE {{CMD~SLOT, CMD“HREF) = 2E RO} ZERO MI ORDER CHD R 

; 3185 2 SNO-ENVELOPE ["EMDTStOT, UNCUSED) © Unets i SELECTED tx 

; 3186 2D SNO-ENVELOPE {/EMDTSLOT, UNCHUSED} = ZERO,” + ROT USED SN-DUP IMPLIMENT. 
; 3187 2 SMD-ENVELOPE [“CMD-SLOT, OPCODE) = OPGUS; ! DEFINE COMMAND OPCODE 
; 3188 3 SND-ENVELOPE {{CMD~SLOT, UQRSVD RO; + NOT USED 

; 3189 2 SND_ENVELOPE { :CMO-SLOT, MODIFIER] < ZERO; # DEFINE CHD MODIFIERS 
4 3191 2 SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT. 

: 3193 2 SEND.RING [.CMO_SLOT, OWN.GIT) = PORT_OWNED; 

: 3195 2 | READ THE IP REGISTER TO STIMULATE PORT POLLING. 

3 7 

: Ng? 3 TEMP = .RC25_ADDR [RCIP, RC_ALL); 

; . 

i $199 2 ¢ GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND 

; 3201 2 

$ 2 


GET_CMD_SLOT Q); 








© 
o 
Poffo wwuforfolfofor 


112760 


MISCELLANEOUS SECTIONS 
AZTEC GLOBAL ROUTINE 


: CHECK THE END PACKET FOR GOOD S*ATUS 


if REC_STATUS () 
then 


— 
return .RET_STATUS; 
end 


else 


RES_SLOT = 
RET_UNIT re ) 


GET_RES_SLOT 


return .RET Toth 


end; 


000000G 

000000G 0000106 
0000006 

000054 

000000G 

000012G 
0000006 

000054 

0000006 

000003 0000146 


-RES_SLOT - 1; 
-REC_ENVELOPE [.RES_SLOT, UNIT FLAG); 


- SBTTL 
GET.UNIT. gey eas 












C14 


SEQ nwt 
76 
(26) 


VAX-11 Bli 


27-Mar-1985 15:23:34 
USER$1: (AZ 


9-16 579 
11-Jan-1985 08:19:19 TEC. CZRCFCIZRCF C2, B16;1. 


! READ THE STATUS 
! RETURN WITH A STATUS ERR 


! GET THE CURRENT RES. SLOT 
! READ UNIT FLAG 
t GET NEXT RES. SL 
! RETURN WITH A PASS CODE 


GET.UNIT.STATUS AZTEC GLOBAL ROUTINE 


S 8 3146 
CMD. SLOT, -(SP) : 3176 
054, -(SP)_ 
PC, BL $MUL 
014, SND. ENVELOPE(RO) 
CHD. SL LOT «(SP ) ; 3177 
L $MUL 
i SND. ENVELOPE +2(RO) 
1, SND. ENVELOPE +2(RO) 
cro St OT, (SP) ; 3178 
654 (3) 
#360, SND. ENVELOPE+2(RO) 
CMO. SLOT, (SP) ; 3179 
o4, ,- (SP) 
L$MUL 
SMO” ENVELOPE +3(RO) 
CHD. coe ) ; 3183 


L $MUL 
rE REF , SND.ENVELOPE+4(RO) 
CHD. S SLOT (SP ) 


L $MUL 
am ENVELOPE ©6(RO) 
CMD: SLOT, (SP) 

054 ag} 


PC, BL $MUL 
UNIT SN. ENVELOPE. 10(RO) 
CHD. $Lo OTC SP) 


Pc. L$MUL 
SNO ENVELOPE +12(RO) 
CMD.SLOT,(SP) 

#54. -(SP) 


PC,BL$MUL 
#3,SND.ENVELOPE+14(RO) 





016716 
012746 
004 


ZRCFB2 
000244 
000250 
000254 
000270 
000274 
000310 
000312 
000314 
000334 
000240 
000350 
000352 103005 
000354 06 
000360 
000364 
000372 
000376 
000402 
000404 
000412 
000424 
0004 
000434 
000436 


: Routine Size: 
3; Maximum stack 















D14 





SEQ 017 
MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-1 579 roan 
AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 | USER$1:( AZTEC. CZRCECIZRCFC2. B16;1 (26) 
MOV CMD.SLOT, (SP) ' 3188 
000054 MOV 054, -(SP) 
0000006 JSR PC, BL MUL 
000015G CLRB = SNO. ENVELOPE+15(RO) 
0000006 MOV CMO. SLOT, (SP) ; 3189 
000054 MOV 54, -(SP) 
0000006 JSR PC, BL $MUL 
0000166 CLR SNO. ENVELOPE +16(RO) 
0000006 MOV CMD: SLOT, RO : 3193 
ASL 0 
ASL RO 
0000006 ADD SEND .RING,RO 
100000 000002 BIS #100000, 2¢RO) 
0000006 000030 MOV pres. ADDR. 30(SP) ; *,RC.REG 3197 
000030 MOV 30(SP),R ; RC.REG, TEMP 
000000V JSR PC,GET. CHO. SLOT ; 3201 
000000V JSR PC. REC. STATUS ; 3206 
BCC . 
000030 ADD 030,SP ; 3209 
HOV RET. STATUS, RO ; 3208 
0000006 1s: DEC RES. SLOT : 3212 
0000006 MOV RES. SLOT,RO ; 3214 
SWAB ss RO 
RORB RO 
ROR RO 
ROR RO_ 
000077 BICB 77,R0 
0000226 0000006 MOV REC. ENVELOPE +22(RO), RET.UNIT.FLAG ; 
JSR PC. GET.RES.SLO ; 3215 
000030 ADD ; 
MOV RET STATUS,RO ; 
2s: TST (SP). ; 
. ats PC 
144 words, Routine Base: ABSCODE + 10444 


depth per invocation: 14 words 





ZRCFR2 

v03.0 

3 3221 1 

: 3222 1 

; 3223 1 

3 3224 1 

; 3225 1 

3 3226 1 

s seer i 

3 3228 2 

3 3229 2 

:; 3230 2 

3 3231 2 

: 3232 2 

3 3233 2 

3 3234 2. 

3 3235 2 

; 3236 2 

3 3237 2 

3 3238 2 

3 3239 2 

: 3240 2 

3 3241 2 

3 3242 2 

; 3243 2 

3 3244 2 

; 245 1 

000000 026727 
001003 

000010 5067 

000014 2 

000016 7 

000022 016700 

000026 

000030 

000032 700 

000036 pede 
012700 

000050 000207 
016700 

S6 006300 

006 
0667 
042760 
005000 
000207 


s Routine Size: : : 
; Maximum stack depth per invocation: 0 words 















SEQ 0173 


AZTEC GLOBAL ROUTING {i-Jen-1985 08:19:19  USERET LALTEC-CzRCFCIzRCFC2.816,1 275 
ow routine GET_CMD_SLOT = 
FUNCTIONAL DESCRIPTION: 
: THIS ROUTINE ASSIGNS A COMMAND SLOT NUMBER FOR THE COMMUNICATION 
: o RING, IT WILL WRAP AROUND, AS THE SLOT NUMBER REACHED TO THE BOTTOM. 
begin 
if .CMD_SLOT eqlu SND_ALLOCATE - 1 ! IS SLOT @ REACHED TO THE END 


WRAP AROUND THE COMMAND RING 


n 
CMD_SLOT = ZERO ¥ 
INCREMENT THE CMD SLOT NUMBER 


se 
CMO_SLOT = .CMD_SLOT + 1; 


Md -SEND_RING (.CMD_SLOT, OWN_BIT) eqlu PORT_OWNED 


n 
return TRUE ! THIS SLOT IS NOT ees BY 
! HOST YET. SO WAIT 


lse 
SEND_RING [.CMD_SLOT, FLAG_BIT) = ZERO; ! CLEAR CMD_RING FLAG BIT 
return FALSE; 


end; 
.SBTTL GET.CMD.SLOT AZTEC GLOBAL ROUTINE 
000000G 000017 GET.CMD.SLOT:: 
ue CMD .SLOT, #17 
000000G an ee 
0000006 1$ INC CMD.SLOT 
000000G 2$ MOV CMD .SLOT,RO 
ASL RO 
ASL RO 
000000G ADD SEND.RING ,RO 
000002 TST 2(RO) 
BPL 3$ 
000001 MOV #1,RO0 
RTS PC 
000000G 3$: MOV CMD .SLOT,RO 
ASL RO 
ASL RO 
000000G ADD SEND .RING,RO 
040000 000002 BIC #40000, 2(RO) 
CLR RO 
RTS PC 
32 words, Routine Somes, ABSCODE + 11104 
















F14 








ZRCFB2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0 <1 nba 79 
v03.0 AZTEC GLOBAL ROUTINE ; 11-Jan-1985 08:19:19 USER$1: [AZTEC. CzRCEC IZRCFC2. B16;1 O98 28) 
>; 3249 1 global routine GET_RES_SLOT : novalue = 
: 3250 1 T oe 
3 seh : : FUNCTIONAL DESCRIPTION: 
: 3253 1 ' THIS ROUTINE ASSIGNS A RESPONSE SLOT NUMBER FOR THE COMMUNICATION 
5 eSee : : RING, IT WILL WRAP AROUND, AS THE SLOT NUMBER REACHED TO THE BOTTOM. 
; ts] § . begin 
; $556 $ RECEIVE_RING [.RES_SLOT, FLAG_BIT) = ZERO; ! CLEAR RECEIVE RING FLAG BIT 
; ty : if .RES_SLOT eqlu REC_ALLOCATE - 1 : ti @ REACHED TO THE END? 
3 n 3 
’ 2 RES_SLOT = ZERO ! nae AROUND THE RESPONSE RING 
:; 3263 2 se ' ELSE 
3 aoe § RES_SLOT = .RES_SLOT + 1; ! INCREMENT THE RES SLOT NUMBER 
; 1 end; 
.SBTTL GET.RES.SLOT AZTEC GLOBAL ROUTINE 
000000 016700 000000G GET.RES.SLOT:: 
MOV — SLOT,RO 3 
000004 006300 ASL 
000006 006300 ASL RO 
000010 066700 000000G ADD RECEIVE .RING,RO 
000014 042760 040000 000002 BIC #40000, 2(RO) 
000022 026727 000000G 000017 CMP RES. SLOT, #17 
000030 001003 BNE 1$ 
000032 005067 000000G CLR RES.SLOT 
000036 000207 RTS 
005267 000000G 1$: INC RES.SLOT 
000044 000207 RTS PC 
; Routine Size: 19 words, Routine Base: ABSCODE + 11204 
; Maximum stack depth per invocation: 0 words 
3 3267 1 
3268 1 : 
3269 1 








ROPING PDIPD b e e e  e e be e b o bo p bo po pe 


; Meximum stack depth per invocation: 4 words 













G14 


MISCELLANEOUS SECTIONS { 27-Her-198 


SEQ 0175 
-11 Bli 


5 15:23:34 88-16 V4,0-579 Page 80 
AZTEC GLOBAL ROUTINE Jan-1985 08:19:19 R$1: (AZTEC, CZRCFCJZRCFC2.B16;1 (29) 


pas routine READ_FILL_CMD : novalue = 

' FUNCTIONAL DESCRIPTION: 
AND ALSO GIVE THE CMD_SLOT TO PORT IMMEDIATELY AFTER RECEIVING IT 
FROM PORT. THIS ROUTINE WILL BE CALLED WHEN READ_CMD WAS ORIGINALLY 
ISSUED AND THE SND_ENVELOPE IS SUPPOSED TO BE IN TACT EXCEPT FOR 
THE ONES THAT ARE TOUCHED HERE. THIS ROUTINE IS CALLED IN THE 
TIMING TESTS ONLY. 

FORMAL PARAMETERS : 

IMPLICIT INPUTS : LBN_ST, CMD_SLOT 

IMPLICIT OUTPUTS : 

COMPLETION CODES : 

SIDE EFFECTS : 


begin 

SNO. ENVELOPE {.CMD_SLOT, CMD_LREF) = .LBN_ST; ! GIVE LBN IN COMMAND REF SO THAT 
! LBN RECEIVED IN THE RECEIVE ENVELOPE 
coe 4 a cone FAILING LBN, IF THERE 


SND_ENVELOPE [.CMD.SLOT. LBN.LO] = .LON.ST; § LBN TO SEEK 
SENO_RING [.CMO.SLOT. OWN BIT] = PORT_OWNED; 1GIVE THE SLOT TO PORT 


return; 
end; 
: -SBTTL READ.FILL.CMD AZTEC GLOBAL ROUTINE 
000000G READ. FILL. CMD: : 
MOV CMD.SLOT, -(SP) 3 3293 
000054 MOV 054 CSP Pp} 
000000G JSR PC,BL$MUL 
000000G 000004G MOV LON. af Pt wf ENVELOPE +4(RO) 
000000G MOV CMD 8 (SP) 3 ‘ 3297 
000054 MOV 054 °¢SP5 
000000G JSR PC, 
000000G 000040G MOV [BN ST. SHO ENVELOPE =40(RO) 
000000G MOV CMD.SLOT,RO 
8 
000000G ADD SEND .RING,RO 
100000 000002 BIS #100000, 2(RO) 
000006 ADD #6, SP 
RTS PC 
30 words, Routine Base: ABSCODE + 11252 


H14 





THEN 
Shs ST = .REC ee on a ae sot, CMD TaTu3} !GET as REF FAILING 
dar 


ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-57 omg oy 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCIZRCFC2. B16;1 (30) 
; 3302 1 global routine REC_STATUS = 
; pen a 
3 3304 1 fee 
3 sine : : FUNCTIONAL DESCRIPTION : 
: ! 
; 3307 1 ! THIS ROUTINE READS THE STATUS OF END wir PACKET AND RETURN 
; 3308 1 H THE SLOT TO THE CONTROLLER. IF ERROR, A STATUS FLAG AND ERROR CODE 
; 44 : : ARE SENT TO THE CALLER. 
3 ! 
[| sean @ ' IF STATUS BIT INDICATES 9 ma THEN AN ERROR MESSAGE WILL 
3 sere ' : BE REPORTED BY THE TEST MO 
; 3314 1 ' FORMAL PARAMETERS : 
» peas & ' IMPLICIT INPUTS : 
; 3316 1 ! IN_BOUND 
, Bey &@ ! IMPLICIT OUTPUTS : 
s 3318 1 ! RET_STATUS, ER_STATUS 
: 3319 1 : 
; 3320 i ! COMPLETION CODES : 
; Bees & : RET_STATUS 
; 3322 1 ' SIDE EFFECTS : 
; 3323 1 Rites 
5 3324 1 
; 344 $ ; begin 
; 3327 2 ! WAITING FOR THE CONTROLLER TO FILL THE DESCRIPTOR AND RELEASING 
3 $334 $ : IT TO THE HOST, IF WAITING TIME EXPIRED THEN AN ERROR WILL BE REPORTED. 
; 3330 2 
Fy 3331 2 locel 
; 3332 2 H 
; 3333 2 
: sere $ I = .IN_BOUND; ' SAVE RECEIVE COUNT 
; 3336 2 incru COUNT from 0 to 60000 do § SET TIME OUT RANGE 
; ity : begin ! VER:C 
; 3339 3 if .RECEIVE_RING [.RES_SLOT, OWN_BIT) eqlu 0 ! IF HOST OWNS THE SLOT 
; 3340 3 then ! THEN 
Bee nei , 
s 3343 $ if (.REC_ENVELOPE [.RES_SLOT, STA_CODE) ! READ THE STATUS BITS 
>; 3344 5 nequ ZERO) 
s 3345 4 then : IF ERROR 
; 3346 : FLAG THE ERROR 
; 3348 5 ER_ STATUS = .REC_ENVELOPE [. RES_ ob ora esyatus { i ERROR CODE 

>; 3349 5 N-BOUND = .IN 6 ag TAL 

s 3350 5 RET_STATUS = RSE “CODE; ReceTVE Ihe vETROR & SET STATUS 

;. ia. 6 return .RET_STATUS; ! SET ERROR FLAG 

3 3352 5 end 

3 3353 4 else 

; 3354 5 begin 

; 3355 5 IN_BOUND = .IN_BOUND «+ 1; ' mg? be COUNT TOTAL 

; 3356 5 RECEIVE. RING VRES_ SLOT, OWN_ BIT) : a PORT OWN THE RING 

s 3357 $ GET_RES SLOT (); ! Get NEXT RESPONSE SLOT # 

s 3356 5 RET_STATUS = PAS _CODE; ! CLEAR STATUS 





[— 


















ei 114 


MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Bliss-16 V4.0-579 on Aa lig 
AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19  USER$1:[AZTEC. CZRCECIZRCFC2. B16;1 (30) 
end; 
end 
else 
begin 
if €.IN_BOUND nequ .I) then return -RET STATUS; ‘IF YOU RECIVE AT 
i LEAST A SLOT THIS TIME THEN RETURN. 
DELAY (30); ! IF NOT, WAIT AND TRY BACK, 
end; : 
BREAK: ! WATCH FOR CONTROL C. 
end 


! IF THE MAX TIME IN THE LOOP WAS ELAPSED, THEN READ RCSA 


HK MNVUWWNMWUUWWNRIMRNNRNNNWUWWa Pa aaWLLS 


! FOR POSSIBLE ER ROR 
RC25_DATA (RCSA, RC_ ALL) = .RC25_ADDR (RCSA, RC_ALL]); ! GET RCSA DATA 
: -RC25_DATA (RCSA, RCSA_ER]) § CHECK SA REG.ERROR BIT 
Revie STATUS = | oo § SAVE THE PORT/CTLER FAILURE 
return .RET_STA 
end 
else 
Revie STATUS = cro. CODE; ! SET TIME EXPIRED IN STATUS BUF 
return . -RET_STATUS; ! RETURN WITH A TIME EXPIRED FLAG 
end; 
end; 
-SBTTL REC.STATUS AZTEC GLOBAL ROUTINE 
004167 000000G REC.STATUS:: 
JSR R1, $SAVE3 
024646 CMP -(SP),-(SP) 
016703 000000G MOV IN.BOUND ,R3 
005002 CLR Re 
016700 000000G 1$: MOV RES.SLOT,RO 
006300 ASL RO 
006300 ASL RO 
066700 000000G ADD RECEIVE .RING,RO 
032760 100000 000002 BIT #100000, 2(RO) 
001072 BNE 3$ 
016700 000000G MOV RES.SLOT,RO 
000300 SWAB RO 
106000 RORB RO 
006000 ROR 4 
142700 000077 BICB 077,RO 
132760 000037 000016G BITB 037,REC.ENVELOPE+16(RO) 
001436 BEQ 
016700 000000G MOV RES.SLOT,RO 
000300 SWAB RO 


106000 RORB RO 








S SECTIONS 
ROUTINE 


of 
2g 





000000G 2s: 
000000G 
000000G 
00000: 000002 
000000G 3%: 
000000G 
4$: 
S$: 
000000G 
6$: 
7$:; 
66 
8$: 
5202 
165140 
300 101645 
016700 000000G 
306 016016 000002 
aif shaeens 000002G 
320 012767 000021 000000G 
326 016700 
332 00040 
334 012767 000011 000000G 9$: 
342 016700 0000006 
346 022626 10$; 
350 000207 
; Routine Size: 117 words, Routine Base: 


; Maximum steck depth per invocation: 8 words 











J14 


27-Mar-19 5:2 
6:1 


SEQ 017 
5 15:23:34  VAY-11 Blige-16 v4.0 378 
i1-Jan-1985 08:19:19 tAZT 


Pp 
USERSL: PALTEC CZRCFe IzRerC2.B16;1 303 


ROR RO 
ROR RO 
BICB 477,RO 
Vv REC .ENVELOPE +4(RO),LBN.ST 
MOV RES.SLOT,RO : i 3348 
SWAB RO seo 
ORB RO Pi 
ROR RO 
ROR 
BICB 
MOV Rec’ "ENVELOPE: 16(RO),ER. STATUS 
INC IN. BOUND 


MOV 031 ,RET. STATUS 
MOV S” “STATUS ,RO 


BR 
INC IN. BOUND 

MOV RES. SLOT,RO 

ASL RO 

ASL RO 

ADD RECEIVE. RING RO 
BIS 01 0 
JSR PC Ger “aes. SLOT 
CLR RET.S 

CMP IN. BOUND ,R3 

BEQ 43 

MOV RET. STATUS,RO 
BR 10$ 

MOV $36,R1 

BEQ 3 

MOV L$DLY,RO 

BEQ 7$ 

CLR 2(SP) 

DEC RO 

BNE 6$ 

DEC Ri 

BR S$ 

TRAP 22 

INC R2 

CMP R2, #165140 

BLOS 

MOV RC2S. ADDR RO 
MOV 2(RO 

MOV (SP), ReSS. DATA+2 
BPL 93 


MOV #21,RET.STATUS 
MOV rr if “STATUS ,RO 


4 
MOV #11,RET.STATUS 


MOV RET .STATUS,RO 
CMP 5g? 99288" 2 


ABSCODE + 11346 








K14 


ZRCFB2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 B 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1:[ 


. SEQ 0179 
iss-1 


1 6 V4,0-579 84 
AZTEC.CZRCFC JZRCFC2.B616;1 99 (30) 


s 3391 1 












ie L14 






SEQ 0180 
ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Blies-16 V4.0-579 p 
V03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USERIT: PAITE TEC. CZRCFCJZRCFC2.616;1 09 353 
3 3392 % pact routine RANDOM_NUM : novalue = 
3 3393 1 
; 3394 1 t FUNCTIONAL DESCRIPTION: 
; 33% 1 THIS ROUTINE SUPPLIES AN LBN NUMBER AT RANDOM. 
; 3397 : P2 IS THE SEED. P3 1S LBN NUMBER SUPPLIED. 
; ; => 
; 3399 é begin 
; $400 2 P2-= (.P20377 + 6925) mod 32767; ! RANDOM SEED 
es 3402 2 if .P2 gtru .END_LBN 
13 3403 2 then 
; 3404 2 P3 = .P2 and .END LON ! P3 IS LON 
3 3405 2 else 
; 3406 2 P3 = .P2; 
3 3407 2 
; 3408 2 P2 = not .P2; ! UPDATED SEED 
3 3409 2 return; 
3 3410 1 end; 
.SBTTL RANDOM.NUM AZTEC GLOBAL ROUTINE 
000000 010146 RANDOM.NUM: : 
MOV ~—s- R11, -( SP) F 3392 
000002 0167. MOV -(SP) ; 3400 
000006 012746 000571 MOV 0571, -(SP) 
000012 00476 JSR C,.BL$MUL 
000016 010016 V (SP) 
000020 062716 015415 ADD 615415, (SP) 
000024 012746 077777 MOV 077777, -(SP) 
000030 004767 0000006 JSR PC. BL $HOD 
000034 010067 0000006 MOV RO,P2 
000040 026767 000000G 0000006 CHP P2,END.LBN ‘ 3402 
000046 101411 BLOS 18 
000050 016700 0000006 MOV P2,RO0 : 3404 
000054 016701 0000006 MOV END.LBN,R1 
000060 005101 COM Rl 
000062 040100 BIC R1,RO 
000064 010067 0000006 MOV RO,P3 
000070 00040 BR 23 ; 3402 
72 016767 000000G 0000006 1$ MOV P2,P3 ; 3406 
100 005167 0000006 2$ COM P2 ; 3408 
104 062706 000006 ADD 06, SP : 3409 
000110 012601 MOV (SP)+,R1 ; 3392 
112 000207 RTS PC 
s Routine Size: 38 words, Routine Base: ABSCODE + 11720 


; Maximum steck depth per invocation: 5 words 


: 3411 #1 
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MISCELLANEOUS SECTIONS 
AZTEC GLOBAL ROUTINE 


om routine EXAM_DATA ; = 
FUNCTIONAL DESCRIPTION: 


THE FUNCTION OF THIS ROUTINE IS TO EXAMINE THE 
FREE MEMORY FOR EXPECTED DATA, 


IMPLICIT INPUTS: 


4_SADD 
BUF _LENGTH 
TIP 
IMPLICIT OUTPUTS: 
RETURN STATUS 
SIDE EFFECTS: 
- NONE - 
begin 
locel 
PATTERN, 
FLAG; 


FLAG = ee 
be 


H_SADD; 
H_EADD = .H SABD - 2 + (.BUF_LENGTHe2); 
PATTERN = .TIP; 


incru COUNT from .H_SADD to .H_EADD by 2 do 


begin 


27-Mar-1985 15:2 
11-Jen-1985 08:1 


M14 


SEQ 0181 
3:34 VAX-11 Bliss-16 V4.0-579 Page 86 
9:19 USER$1: (AZTEC .CZRCFC JZRCFC2.8616;1 (32) 


! INIT ERROR FLAG 

! SAVE ADDR. IN TEMP. BUFFER 
' END OF FREE HOST MEMORY 
PUT PATTERN FOR COMPARE 


! EXAMINE CONTENTS OF MEMORY 


if .TIP eqlu 1 then PATTERN = ( not . TEMP); ! BASED ON THE VALUE RECEIVED 


if .TIP ealu 2 then PATTERN = .TEMP; 


if .. TEMP nequ .PATTERN 
then 


pepin 
FLAG = TRUE 
TIP = PATTERN; 
exitloop; 
end; 
TEMP = , TEMP - 2; 
end; 


PEs. 
return RET_STATUS = TRUE; 


! IN TIP, SET UP PATTERN FOR 
! COMPARISION. 


; IF ERROR WAS FOUND THEN 


! GET ERROR DATA 
! FOR TEST MODULE 
















aennnnmmnmmnmnnmmnnm nner ne  ——__##! = 





MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 579 ~ oo 87 
AZTEC GLOBAL ROUTINE 11-Jen-1985 08:19:19  USERS1: (AZTEC, CZRCEC IZRCFC2. B16;1 (32) 
3 end 
2 else 
2 return RET STATUS = FALSE; ! GOOD STATUS 
1 end; 
.SBTTL’ EXAM.DATA AZTEC GLOBAL ROUTINE 
004167 0000006 EXAM, -DATA:: a. ati 
3 3412 
005003 CLR R3 3 FLAG 2435 
016767 0000006 0000006 MOV H. SADD, TEMP ; 3436 
016700 0000006 MOV BUF .LENGTH,RO ; 3437 
006300 ASL RO 
066700 0000006 ADD H.SADD,RO 
010067 0000006 MOV RO,H.EADD 
162767 000002 0000006 SUB H.EADO 
016700 0000006 MOV PRO : *,PATTERN 3438 
016702 0000006 MOV H.EADD,R2 ; 3440 
016701 0000006 MOV H.SADD,R1 ; *,COUNT 
000432 BR 54 
026727 0000006 000001 1s: CMP TIP,@1 : 3443 
001003 BNE $ 
016700 0000006 MOV TEMP ,RO ; *, PATTERN 
005100 COM RO ; PATTERN 
026727 0000006 000002 2%: oe T1P,02 ; 3445 
016700 0000006 MOV TEMP, RO ; *,PATTERN 
027700 0000006 3%: CMP aTEMP RO ; @,PATTERN ; 3447 
001405 BEQ 4$ 
012703 000001 MOV 61,R3 ; *,FLAG 3450 
7 0000006 MOV RO.TIP ; PATTERN, * 3451 
000407 BR 6$ ; 3449 
062767 000002 0000006 4$: ADD 62, TEMP ; 3455 
062701 000002 ADD 62,R1 : *,COUNT 
102 S$: CMP R1,R2 ; COUNT, « 
0.008 6$ phos As FLAG 34 
: i 38 
30 BCC $ 
112767 000002 0000006 MOVE  2,P. MASK ; 3461 
012767 0000006 0000006 MOV Pi ; 3462 
0000006 CLR ; 3463 
0000006 CLR ; 3464 
016767 0000006 0000006 MOV TIP ,P4 ; 3465 
017767 0000006 0000006 MOV QTEMP PS ; 3466 
016767 0000006 0000006 MOV MP ,P ; 3467 
012700 000001 MOV 61,R0 ; 3468 
010067 0000006 MOV RO.RET. STATUS 
000207 RTS ; 
005067 0000006 74; CLR RET. STATUS 
005000 CLR RO 
000207 RTS PC 
s Routine Size: 81 words, Routine Base: ABSCODE + 12034 
¢ Meximum steck depth per invocation: 5 words 
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SEQ 0184 
A TIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-579 P 89 
ty AITER GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCIZRCFC2. B16;1. 9 33) 


; 3476 1 
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MISCELLANEOUS SECTI 
AZTEC GLOBAL ROUTI 


NEZRCECJZRCFC2. B16;1 


globel routine AZTEC_READY = 


7 “FUNCTIONAL DESCRIPTIONS: 





HIS ROUTINE CALLS OTHER ROUTINES 10 GET THE AZTEC READY 
PERFORMS THE FOLLOWING: 
. DEFINE INITIALIZATION CONSTANTS AND INITIALIZE VARIABLES. 
. DO STEP 1 THROUGH STEP 4 CHECK FOR ANY ERRORS 


3. SET UP COMMUNICATION AREA'S. 


. SET HOST SETTABLE UNIT CHARACTERISTICS AND OBTAIN THOSE 
UNIT CHARACTERISTICS THAT ARE ESSENTIAL FOR PROPER CLASS 
DRIVER OPERATION. | 


- BRING A UNIT “UNIT-ONLINE. THE UNIT IS SPUN-UP, IF NECESSARY, 


AND ITS HEADS ARE LOADED PRIOR TO RETURNING THE ONLINE COMMANDS’ S 
ND MESSAGE. 


. IF TIP CONTAINS TEST NUMBER OF 14 THEN THIS ROUTINE SKIPS 
ON_LINE CALL, SO THAT THIS COULD BE DONE IN THE TEST MODULE. 


' FORMAL PARAMETERS: 
: -NONE - 


‘ IMPLICIT INPUTS: 


' IMPLICIT OUTPUTS: 
: AS A RESULT OF THIS ROUTINE THE COMMUNICATION AREA WILL 
BE INITIALIZED AND UNIT IS SPUN-UP. 


' COMPLETTION CODES: 


SET MASK eS FOR Epo Wl asi 


5_F 
NO DIAGNOSTIC WRAP 
SET UP COMMAND RINGS LENGTH 
SET RESPONSE RING LENGTH 
aie INTERRUPT 


AD ADDRESS 
LOAD ge le Mi ADDRESS 


DER ADOR = 

my FAIL” PACKET RESPONSE ert SET 
LEAR COMMAND RING SLOT POINT 

CLEAR RESPONSE RING SLOT POINTER 
SET EXPRESS BIT FOR READ 

COMMAND MODIFIER. 

VER:C 


DATA2 = ehcane 
DATA4 = so’ 177403' ; 


IN_BOUND = 0; 
if AZP_INIT () 


DO STEP INIT AND CHECK FOR ERROR 




















EID 






MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-579 aig nny 91 
AZTEC GLOBAL ROUTINE 11-Jen-1985 08:19:19 USER$1; (AZTEC. CZRCEC IZRCFC. B16;1 (34) 
534 2 then 
osee $ return .RET_STATUS; 
3537 2 if INIT_COM_AREA () ! INIT THE COMMUNICATION AREA 
3538 2 then ! ERROR ? 
sess $ return .RET_STATUS; 
seas $ CMD_REF = .CMD_SLOT; ' SET COMMAND REFERENCE TO 1 
3543 2 if SET_CNTLR_CHAR () ' ISSUE SET CONTROLLER CHAR CMD 
3544 2 then 
ote : return .RET_STATUS; ' IF COMMAND FAILED 
seag $ CMD_REF = .CMD_SLOT; !' SET COMMAND REFERENCE TO 2 
rad : if .TIP eqlu 14 then return RET_STATUS = FALSE; ! TEST 14 WILL DO ONLINE COMMAND 
33 $ ! IN THE MAIN LINE OF CODE 
3553 2 if ON_LINE () ' ISSUE ON LINE COMMAND 
54 2 then 
sean $ return .RET_STATUS; 
2 return RET_STATUS = FALSE; 
3558 1 end; 
.SBTTL AZTEC.READY AZTEC GLOBAL ROUTINE 
112767 000017 000000G winone 'y - 
; 
012767 122000 000000G MOV $133000. DATA1 ; 
012767 000000G 000000G MOV ORI INGBASE ,DATA2 : 
005067 000000G CLR DATA3 ; 
012767 177403 000000G MOV @-375,DATA4 ; 
005067 000000G CLR CMD. SLOT ; 
005067 000000G CLR RES.SLOT ; 
012767 100000 000000G MOV #-100000, CMOD ; 
005067 CLR N,. ; 
004767 167256 JSR PC,AZP.INIT 3 
000 ROR RO 
103003 BCC i$ 
016700 000000G MOV RET. STATUS,RO 
000207 RTS 
004767 170040 1$: JSR PC, INIT.COM. AREA 
000 ROR RO 
103003 BCC 2s 
016700 000000G MOV RET. STATUS,RO 
000207 RTS PC 
016767 000000G 000000G 2s: MOV CMD.SLOT,CMD.REF 
004767 173074 JSR PC,SET.CNTLR.CHAR 
000 ROR RO 
103003 BCC 3¢ 
016700 000000G MOV RET.STATUS,RO 
000207 RTS 
016767 000000G 000000G 3$; MOV CMD.SLOT,CMD.REF 
026727 000000G 000016 CMP TIP, #16 
001004 BNE 
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SEQ 0187 

ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-579 age 92 
vo3.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1:(AZTEC.CZRCFCJZRCFC2.816;1 (34) 
000154 005067 000000G CLR RET. STATUS 
000160 005000 CLR RO 
000162 000207 RTS PC 
000164 004767 174224 4$;: JSR PC,ON.LINE 
000170 006000 ROR RO 
000172 103003 BCC 5$ 
000174 016700 000000G MOV RET.STATUS,RO 
000200 000207 RTS 

005067 000000G S$: CLR RET. STATUS 
000206 005000 CLR RO 
000210 000207 RTS PC 
; Routine Size: 69 words, Routine Base: ABSCODE + 12276 


; Maximum stack depth per invocation: 1 word 


s 3559 1 
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MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34  VAX-11 Blise-16 V4.0 yy 
AZTEC GLOBAL ROUTINE Li-Jen-1985 08:19:19  USERSI:[AZTEC.CZRCFCIZRCFC2.816,1 8°38) 





? } routine DO_RETRIES : novalue = 
3562 1 ' COME HERE ON AN ERROR AND KEEP TRACK OF RETRIES. 
Seee : IF NECESSARY DROP UNIT UNDER TEST. 
3565 2 begin 
coe $ -RETRIES = .NUM_RETRIES «+ 1; 
3568 3 if (.NUM_RETRIES lequ .SWP_RETRIES) 
3569 2 then | 
3570 3 rot Ma 
3571 3 PRINTB (FMT$A, .NUM_RETRIES); 
3572 3 end 
3573 2 else 
3574 3 penis 
3575 3 RETRIES = FALSE; 

3576 3 
3577 3 if not .SWP_CONTINUE 
3578 3 then 
3579 4 
3580 4 BSBL"« (.LOG_UNIT); 
3582 3 end; 
3583 3 
3584 2 end; 
3585 2 
86 1 end; 

.SBTTL DO.RETRIES AZTEC GLOBAL ROUTINE 
005267 000000G DO.RETRIES:: 

INC NUM.RETRIES 
13th 000000G 000000G ae NUM. RE TRIES, SWP.RETRIES 
016746 000000G MOV NUM. RETRIES, -(SP) 
012746 0000006 MOV OFMT$A, -(SP) 
012746 000002 MOV @2,-(SP) 
010600 MOV SP,RO 
104414 TRAP 14 
062706 000006 ADD 06, SP 
000207 RTS PC 
005067 000000G 1$: CLR RETRIES 
032767 000001 000000G BIT #1,SWP. CONTINUE 
001004 BNE $ 
016700 000000G MOV LOG.UNIT,RO 
104451 TRAP 51 
104444 TRAP 44 
000207 2s: RTS PC 

: Routine Size: 28 words, Routine Base: ABSCODE + 12510 


; Maximum stack depth per invocation: 5 words 


s er i 
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ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4.0-57 _ ~—y 94 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1:(AZTEC.CZRCFC JZRCFC2.616;1 (36) 
; 344 : global routine DECODE : novalue = !Decodes failing SA reg data 
; 3590 1 fee : Faas 
) we 3s ! Functional Description : 
s 3592 1 : Due to the implimentation of the DUP and UQ Port protocol there 
s 3593 1 : are two levels at which an issued command to a port/controller 
3 se56 ' : can fail and they are: 
Hy . 
: case : 1. The issued command can time out. 
3 : 
s 200 3 4 2. An error can be posted in SA register bit 15 by the port to 
; 3599 : : report an error. 
; 3601 1 : 3. The issued command to the port/controller can be executed 
; 3602 1 : correctly without any errors but the response packet status 
; 44 i : field could have an error or status other than success posted. 
3 : 
; 3605 1 : This routine will then be called when the return from a queued 
; 3606 1 : command comes back with an error code or non successfull status 
s 3607 1 : code. This is by definition when bit 0 in the returned status 
; 3608 1 : is equal to 1. 
s 3609 i : 
; 3610 1 H 
s ll 3 ! Formal Parameters : 
> ese & H none 
:; 3613 1 H 
; 3614 1 ! Implicit ineute : : 
; 3615 1 ¢ RET_STATUS: Stored in this global storage is the returned error 
; 3616 1 H code or non-successful status code from a queued 
:” wear 2 : command. 
> 3618 1 : k 
s. we 2 ! Implicit Outputs : 
; 3620 1 1 none 
: 3621 1 : : 
i. 2 ! Completion Codes : 
5s wees i $ none 
F 3624 1 H 
; 3625 1 ! Side Effects : . 7 ; 
; 3626 1 : after execution of this routine the RC25 controller 
; ae? : : is initialized aborting any DM code running in the controller. 
; 3629 1 k 
; 3630 2 begin 
s 3631 2 
; 3632 2 $e 
; 3633 2 ! Use the contents of "RET_STATUS” to select what 
; 3634 2 ! type error or non-successful status code is to 
; 3635 2 ! be processed. 
3 e+ 4 $ if .RET_STATUS eqlu ONE then return ®ET_STATUS = ZERO; ! NO ACTION IF RET_STATUS IS ONE 
: 
; 3640 2 selectoneu .RET_STATUS of 
; 3641 2 set 
>; 3642 2 $ 
; 3643 2 
F 2 


"Port/Controller time out” error code 
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ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss-16 V4,0-57 ay 95 
vo3.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCECIZRCFC2. B16;1 (36) 
; 3645 2 ! Port/Controller timed out after the specified 

; 3646 2 time out interval. 

; 3647 2 

:; 3648 2 

:; 3649 2 (CTO_ COVE) Code equals #o0'11' 

: 3650 3 Patt 

; 3651 3 = oe (.EMSG_STRUCT (MSG2)); 

s wae @ 

» eee € ! 

:; 3654 2 ! “Port fatal error” code 

:; 3655 2 ’ 

; 3656 2 ' The error bit in the SA Register was set when 

3 th $ examined. This error indicates a Port fetel’ error code. 

; 3659 2 

:; 3660 2 (PFE_CODE) : !Code equals #0’ 21’ 

s 3261 § begin 

; 3662 3 = ,RC25 mr eyo" RCSA_ERC); 

: 3663 ; PRINTB (FMT13, ! PRINT RCSA ERROR CODE 
; 3664 

; 3665 3 if .TEMP gequ 200 

; 3666 3 then 

3 3667 4 begin 

3 3668 4 PRINT (.RC_STRUCTURE [.TEMP - 200)); tprint RCSA error code 
3 3669 4 end 

3 3670 3 else 

; 3671 4 

; 3672 4 Petr (.PFE_STRUCT [.TEMP)); 

3 3673 3 end; 

; 3674 3 : 

3 3675 3 if AZTEC_READY () ! Init and brin 

; 3676 3 then | ! Aztec ready i 

3 3677 4 begin ! possible 

>; 3678 4 DODU (.LOG_UNIT); ! otherwise, drop unit 
: 3679 4 DOCLN; ! and clean up. 

$ 3680 3 end; 

3 3681 3 

; 3682 3 return RET_SIATUS = FALSE; ' Return to caller 

; 3683 2 end; 

3 3684 2 $ 

: oat g : "Return status error” code 

; 3687 2 ! This indicates that a non-successful return status 

3 3688 2 ' code was returned from an issued command. 

; 3689 2 H 
; 3690 2 ‘ 

; 3691 2 (RSE_ 5006) : !Code equals #o'31' 

; 3692 3 pegin 

; 3693 3 TE -ER_STATUS<0, 5>; ! SAVE MAJOE ERROR CODE 
; 3694 3 ! Look at uqport message type to determine if this is a response to 
$ +464 : ! one of the commands given or other unsolicited log packet. 
; 3697 3 if .REC_ENVELOPE [.RES_SLOT, MSG_TYPE]) eqlu ZERO 

3 3698 3 then 

s 3699 4 begin 

; 3700 : PRINTF (.EMSG_STRUCT [MSGO)); 
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SEQ 019 
ZRCFR2 MISCELLANEOUS ae 27-Mar-1985 15:23:34 VAX-11 Bliss-16 ving 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1: (AZTEC. CZRCFCIZRCFC2, B16;1 (36) 


! Look at UQPORT connection ID field to determine the type 
! of response 





i -REC_ENVELOPE [.RES_SLOT, CONN_ID) eqlu 2 ! CONN_ID = DUP 
en 


begin 
PRINT (.SDUP_STRUCT [.ER_STATUS)); 
en 

else 


anal 
PRINTB (.SMSCP_STRUCT [.TEMP)); 
! TRY MODULE CALL out BASED ON ERROR CODE FROM THE END PACKET. 


selectoneu .TEMP of 
set 


{8) : 
P2 = #b'1100'; § MAJOR ERROR CODE 10 
' MEANS DRIVE CARD AND MECHANICS 


(9) : 
P2 = #b'0011'; § MAJOR ERROR CODE 11 
' MEANS ADAPTER CARD AND CONTROLLER 


(10) : 
P2 = #b'0010'; § MAJOR ERROR CODE 12 
' MEANS CONTROLLER CARD 


(11) : 
P2 = #b'1100'; ! MAJOR ERROR CODE 13 
' MEANS DRIVE CARD AND MECHANICS 


{otherwise) : 
P2 = ZERO; ' NO SELECTION 
tes; 


if .P2 nequ ZERO then PRT$FRU_CALLOUT (.P2); ' CALL OUT MODULES 
end; 


PRINTB (FMT14, .ER_STATUS); ' ALSO PRINT ERROR CODE 
end 
else 


PRINT (FMT15, .ER_STATUS); ! GIVE LOG PACKET ERROR 
end; 


; end; 
"SUPERVISOR CALL” error code 


(SEX_ coOne) 'Code equals #0'601' 


PRINT (.EMSG_STRUCT [MSG1)); 
end; 


Se SE SF SF SF Ge SE SF Se SF SF SF SF GF SE GF GF SF OF GF SE GF Ge GF GF GF GF GF GF GF Gs Gs Se OF OF GS GF GF SF Os OF Gs Gs OF OF Gs Gs OF Gs 6 OF Os Oe os Os Os os 
w 
—~J 
ue) 
~ 


w 
3 
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K15 


MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 B1i 579 Perea’ 2 
AZTEC GLOBAL ROUTINE Ti-Jan-1985 08:19:19 USERIL:CAZTEC-CZRCFCIZRCFC2.B16,1 30) 


2 ! 
2 ! This is here to trap any unknown return status codes 
$ : sent to this routine. 
2 
. botheruice) : !Code equals non of the above 
3 eS (.EMSG_STRUCT [MSG3)); 
2 end; 
2 tes; 
2 
2 : 
e ' Return receive slot to the port and next slot 
. if you have to continue. 
2 RECEIVE _RING at -RES_SLOT, OWN_BIT) = ONE; ' RETURN RECEIVE SLOT TO PORT 
2 GET_RES SLOT i ' GET NEXT RECEIVE SLOT 
2 RET_STATUS = ZERO; 
2 return; 
1 end; 
.SBTTL DECODE AZTEC GLOBAL ROUTINE 
010146 DECODE : : MOV 1,-(S 
026727 000000G 000001 CMP RET .STATUS, 01 
001004 BNE $ 
005067 000000G CLR RET. STATUS 
000167 000662 JMP 93 
016701 000000G 1$: MOV RET.STATUS,R1 
020127 000011 CMP R1,@11 
001011 BNE es 
016746 000004G MOV EMSG. STRUCT+4, -( SP) 
012746 000001 MOV 01,-(SP) 
110600 MOV SP ,.RO 
104417 TRAP 17 
022626 CMP (SP)+,(SP)-+ 
000167 000574 JMP 18$ 
020127 000021 2s: CMP R1,921 
001063 BNE 6 
016767 000002G 000000G MOV RC23 DATA+2, TEMP 
042767 174000 000000G BIC 2 4000 TEMP 
016746 0000006 MOV TEMP, -(SP) 
012746 000000G MOV OFMTI3 Sp) 
012746 000002 MOV 02, -(SP) 
10600 MOV SP,RO 
104414 TRAP 14 
026727 000000G 000310 CMP TEMP ,@310 
103412 BLO 
016700 000000G MOV TEMP ,RO 
006300 ASL 0 
016016 177160G MOV RC. STRUCTURE -620(RO), (SP) 
012746 000001 MOV #1,-(SP) 
010600 ’ MOV SP ,RO 
104417 TRAP 17 


000411 as 
016700 0000006 3$: MOV TEMP ,RO 
006300 RO 
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AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 | USER$1: (AZTEC. Czech IZRCF C2. 916;1 (36) 
016016 0000006 MOV PFE. STRUCT(RO), (SP) 
012746 000001 MOV #1, -(SP) 
010600 MOV SP.RO ; SP,« 
104417 TRAP 
004767 177274 4s: JSR PC, AZTEC.READY ; 3675 
000 ROR RO 
103004 BCC 54 
016700 0000006 MOV LOG.UNIT,RO 
104451 TRAP ss 
104444 TRAP = 44 
005067 0000006 S$: CLR RET. STATUS 
062706 000010 ADD #10,5P 
000167 000452 JMP 198 
020127 000031 6$: CMP R1, 031 
001163 BNE 163 
016767 0000006 0000006 MOV ER. STATUS TEMP 
042767 177740 0000006 BIC 6177740, TEMP 
016700 0000006 MOV RES, got. RO 
000300 SWAB Ss RO 
106000 RORB RO 
ROR RO 
ROR R 
142700 000077 BICB 077, RO 
132760 000360 0000026 BITB 0360,REC.ENVELOPE-2(RO) 
001126 BNE 
016746 0000006 MOV EMSG. STRUCT, -(SP) 
012746 000001 MOV 61, -(SP) 
010600 MOV SP,RO 
104417 TRAP «437 
016700 0000006 MOV RES. SLOT,RO 
000300 SWAB sO 
106000 RORB RO 
006000 OR RO 
006000 R RO 
142700 000077 BICB = 077, RO 
126027 000003G 000002 CMPB 40s REC. . ENVELOPE -3(RO), 02 
001012 BNE 
016700 0000006 MOV ER. STATUS, RO 
006300 ASL RO 
016016 0000006 MOV SDUP. STRUCT(RO), (SP) 
012746 000001 MOV. 01, -(SP) 
010600 MOV SP RO 
104414 TRAP «14 
BR 13$ 
016700 0000006 7$: MOV TEMP ,RO 
006300 ASL R 
016016 0000006 MOV SMSCP.STRUCT(RO), (SP) 
012746 000001 MOV 1, -(SP) 
010600 MOV SP,RO 
104414 TRAP = «14 
016700 0000006 MOV TEMP ,RO 
020027 000010 CMP RO, 010 
001004 BNE as 
012767 000014 0000006 MOV 014,P2 
27 BR 12$ 


0004 
020027 000011 8$; CMP RO,@11 
001004 9$ 








ies reais M15 


SEQ 0194 
ZRCFR2 MISCELLANEOUS SECTIONS 27-Mer-1985 15:23:34 VAX-11 Bliss-16 V4.0-579 Page 99 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1:(AZTEC.CZRCFCJZRCFC2.B16;1 (36) 
012767 000003 0000006 MOV 03,P2 
000420 BR 128 
020027 000012 94: CMP RO, 012 
001004 BNE 138 
012767 000002 0000006 MOV 02,P2 
000411 BR 128 
7 900013 10: CMP RO, 013 
001004 BNE $ 
012767 000014 0000006 MOV 014,P2 
000402 BR 12$ 
7 0000006 118: CLR 
005767 0000006 12$ TST p 
1404 BEQ 
016716 0000006 MOV P2,(SP) 
004767 165230 JSR PC. PRTS$FRU.CALLOUT 
016716 0000006 138: MOV ER. STATUS, (SP) 
012746 0000006 MOV OFMT14, -( SP) 
012746 000002 MOV 62, -(SP) 
MOV *R0 
104414 TRAP «14 
CMP (SP)+,(SP)- 
000410 6R 53 
016746 0000006 14%: MOV ER. STATUS, -( SP) 
012746 0000006 MOV OFMT15, -(SP) 
012746 000002 MOV 02, -(SP) 
010600 MOV SP,RO 
104414 TRAP = 44 
062706 000006 15$: ADD 06, SP 
000422 BR 188 
127 000601 16%: CMP R1, 0601 
001010 BNE 17% 
016746 0000026 MOV EMSG.STRUCT+2, -(SP) 
912746 000001 MOV 61, -(SP) 
010600 MOV SP RO 
104417 TRAP s«37 
022626 CMP (SP)+,(SP)- 
000407 BR $ 
916746 0v0006G 178: MOV EMSG.STRUCT-6, -(SP) 
012746 000001 MOV 61, -(5P) 
010600 MOV SP, RO 
104417 TRAP 3s «37 
022626 CMP (SP)+,(SP)- 
016700 0000006 16%: MOV RES. SLOT,RO 
006300 ASL RO 
006300 ASL RO 
066700 0000006 ADD RECEIVE .RING,RO 
052760 100000 000002 BIS ¢ 2( 
004767 175504 JSR PC, GET. RES. SLOT 
005067 0000006 CLR RET. STATUS 
012601 19s: MOV * RI 
000207 RTS 





; Routine Size: 228 words, Routine Base: ABSCODE + 12600 
; Maximum steck depth per invocetion: 8 words 


8 3779 1 











ZRCFR2 MISCELLANEOUS SECTIONS 27-Mar-1985 15:23:34 VAX-11 Bliss 579 P 
v03.0 AZTEC GLOBAL ROUTINE 11-Jan-1985 08:19:19 USER$1: CAZTEC CZRCEC IZRCFC2. B16;1 ome toy 
; 3780 1 end 


; 3782 0 eludom 


: OTS external references 
.GLOBL iSAVES, $SAVE3, $SAVE2, BLSSHF 
GLOBL BL $MOD, BL $MUL 

3 PSECT SUMMARY 

3 

3 Psect Name Words Attributes 

: AASCODE 345 RO. I, LCL, REL, CON 

: ABSCODE 2980 RO, I , LCL, REL, CON 


Library Stetistics 


3 
3 

eee! ee ob le be) | Oe meee Sone Symbols -------- Pages P i 

3 File Totel Laeded Percent Natesd i. 
3 

s USER$1:(AZTEC.CZRCFC)AZTECO.L16;2 485 209 43 24 00:00.2 


: COMMAND QUALIFIERS 
3 BLISS/PDP11/LIST ZRCFC2.816/EN:NOEIS 
3; Size: 3226 code + 99 date words 
Eien, Shae 
me: 
; Lines/CPU Min: 1040 
3: Lexemes/CP!!-Nin: — 
3; Memory Used: 
3; Compi TYetion nae & 





MODULE ZRCFB3 ( 





27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


VAX-11 
USER$1; 





Bl 
(A 





199-16 V4,0-579 crag oy 
ZTEC.CZRCFC JZRCFC3.B16;4 





age 1 
(1) 





C16 





SEQ 0197 
ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Phise 9-16 Page 2 
27-Mar-1985 13:28:18 USER$1: (AZTEC. ezR ChejIREFCS. B16;4 (2) 
; 0002 O STITLE ‘CZRCFCO 5 te FR END TEST’ 
; 0003 O So 0’, 
; 0004 O TOT LEVEL 
:; 0005 0 ADDRESSING. mODE (RELATIVE) 
3 0006 0 d= 
3 0007 1 BEGIN 
:; 0008 1 '<BLF /LOWERCASE_KEY> 
3 0009 1 : 
; Sore : Ssbttl ‘TEST SECTION’ 
: rote : librery ‘AZTECO'; ! AZTEC LIBRARY 
: 
: oere 1 require 'BLSMAC.REQ' ; ! DIAGNOSTIC SUPERVISOR LIBRARY 
3 1504 1 structure ' DEFINE ACCESS ALGORITHM TO 
s 205 i RC25 (0, P, S, E) = ' ALLOW FIELD REFERANCES TO 
:; 1506 e2 begin ' THE RC25 
. wera ! 
>: 1508 2 
3 1509 2 local 
3 1510 2 RC_REG; 
3 1511 2 
s ae 2 RC_REG = .(RC25 + supvel*0)<0, sbpvel, 0>; 
3 1513 2 RC_REG 
3 1514 2 eng 
o toe se <P, S, E>; 
$ 1516 1 
3 inn? 68 '<BLF/PAGE> 








D16 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Blise-16 V4.0 - nay 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CoRCEC IZRCFCS. B16;4 (3) 
’ 1518 1 psect 

: 1519 1 plit = $plit$( lobel), 

; 1520 1 global = $GLOB$(nowrite, noexecute, global, concatenate), 

3 1521 1 code = ACS$CODE; 

; 1522 1 

; 1523 1 own 

; 1524 1 CMDBF1 : block 16, word) field (PACKET_FIELDS), ! COMMAND BUFFER 1 

; 1525 1 ENDBF1 : block word] riele (PACKET -FIELDS) ' END MESSAGE BUFFER 1 
; 1526 1 RING_B : vector ioe COMMAND BUFFER=16 oHORDs 

: - Baar : WITH 16 WORDS BELOW FOR 

; 1528 1 ! END MESSAGES. 

; 1829 1 DATA_PAT1 : vector [3, 7 preset ( 

; 1530 1 O)= so’ lliii1' ! DATA PATTERN 1 

; 1531 1 1j= $0'044444' ! DATA PATTERN 1 

; 1532 1 2)= 0'022222' ; ' DATA PATTERN 1 

; 1533 1 DATA_PAT2 : vector {3 word} preset ( 

> 1534 1 0J=  0'177400', ! DATA PATTERN 2 

; 1535 1 1)=  0'007760' ! DATA PATTERN 2 

; 1536 1 2)}= 60'000377' J 1 DATA PATTERN 2 

; 1537 1 DATA_PAT3 : vector (3 word) preset ( 

; 1538 1 OJ=  80'155555', ! DATA PATTERN 3 

; 1539 1 1j= eetitt ! DATA PATTERN 3 

; 1540 1 2)= 0'066666' ) ' DATA PATTERN 3 

3 1541 1 DATA_PAT4 : vector (3, word} preset ( 

; 1542 1 0)=  0'000377', ! DATA PATTERN 4 

; 1543 1 1j= 0'170017', ! DATA PATTERN 4 

; 1544 1 2)}= 0'177400'), ! DATA PATTERN 4 

; 1545 1 SEND_PKT : block (4, word) field (MSC_FIELDS), ! 4 WORD PACKET FOR SEND COMMAND 
3 1346 i PATTERN_ADDR : ref vector (3, word); ' SELECTED PATTERN ADDRESS 

: izes : 'HOST_BUF : vector [260, word); ; ' HOST BUFFER AREA 

3 4350. «i external 

1 @ ' 

; 1552 i ! HARDWARE P TABLE DATA IS STORED HERE 

; 1554 1 RT_TABLE : ref block (WORD1_IN_ RT gifs. word) field (RT_FIELDS), 

; 1555 1 RC3S_ADDR : ref RC25 field (RC_REG), REGISTER ALGORITHM 

; 1556 1 R23. DATA : block [2, word) Prelg (RC_REG), ! RCSA DAT 

; 1557 1 UNIT : word, ! UNIT ONDER TEST 

; 1558 1 UNIT: word, 

3; 1559 1 RETRIES : word, 

; 1560 1 PASSO : word, ! FLAG FOR FIRST PASS 

3 1561 1 NUM_RETRIES : word volatile, 

: 1562 1 SWP_TRACE : word voletile, 

; 1563 1 a pPEIRIES : word volatile, 

3 1564 1 : word rae ont me ' INTERRUPT FLAG 

; 1565 1 CANCEL TIMER: : word voleti t INTERRUPT FLAG 

; 1566 1 OM_AREA : blockvector het ALLOCATE + SND_ ALLOCATE ¢ HDR_SIZ, 2, word), 

; 1567 1 tea ono AREA : ref block (4, word) field (HOR FIELD), 

; 1568 1 RECEIVE _RING : ref blockvector [REC ALL ocaTe, 2, word) field (DSC_FIELD), 

; 1569 1 SEND.RING : ref blockvector (SND_ALLOCATE, 2, word) field (OSC_FIELD), 

; 1570 1 REC_ENVELOPE : blockvector (REC_ALLOCATE, RB_SIZE + 2, word) field (ENV_FIELD), 
“ee sy Ge SND_ENVELOPE : blockvector [SND_ALLOCATE, SB_SIZE + 2, word) field (ENV_FIELD), 
3 1572 1 XMT_DATA_BUF : vector (256, word], 

$ 1573 1 RCV_DATA_BUF : vector [256, word], 

; 1574 1 RINGBASE, ! RING BASE ADDRESS 











— 





ee ee ee ee ee be ee be be ee ee be be he be pe ee be be be fe ew he ew hee ee pee ee he hw hs be he hw few bee bw hw fw hw bee ew pe po pe 


CZRCFCO ates FR END TEST 
TEST SECTI 


BUF _DESCRPTR : word voletile, 
CMD_REF : word volatile, 
CMD_SLOT : word volatile, 
RES SLOT : word volatile 

09 : vector 93, word], 
DM_10 : vector (58, word 


: vector (156, word : 


7: ctor word 
BYTE COUNT : word volatile, 
MSGADR : word volatile, 


MEM : 
P_MASK : byte volatile, 
: byte volatile, 
DATAL : “word, 
DATA2 : word volatile, 
DATA3 : word voletile, 
DATA4 : word volatile, 
END_LBN_: word voletile, | 
SWP_ “CONTINUE : word volatile, 
SWP_MANUAL : word volatile, 
MANU_SW : word volatile, 
SWITCH2 : word volatile, 
> -UNIT_ FLAG : 

Pl : word volatile, 
P2 : word volatile, 
P3 : word volatile, 
P4 : word volatile, 
PS : word volatile, 
P6 : word volatile, 
LBN : word volatile, 


LBN_ST : word volatile, 
LBN_ED : word volatile, 
LBN_SZ : word volatile, 


OFFSET : word, 
rae : word, 


SWP~ TOP. 
BUF LENGTH, 
FREE MEM_ADDR, 


word volatile, 





E16 


27-Mar-1985 15:27:28 VAX-11 
27-Mar-1985 13:28:18 USER$1; 


Phige 
AZTE 
BUFFER DESCRIPTOR AREA 
COMMAND REFERENCE BUFFER 
COMMAND RING SLOT 
RECEIVE RING SLOT 

DOM PR M 09 


WRITE 
ENDING LOGICAL “BLOCK 
SOFTWARE P-TAB MANUAL SWITCH 


US BUFFER 
FORMAT — FOR ERROR REPOT 
FAILING F 
bath-re REGISTE 
DATA FOR 


OR 
DATA oie ERROR REPORT 
DATA FOR LBN 
DATA FOR STARTING LBN 
DATA_FOR ee LBN 
LBN INCREMENTING SIZE 
OFFSET TO at TO GET TO 
BOTTOM SURFA 
LBN SIZE TO GET TO NEXT TRACK 
Cc. T CK ADOR. 


THE CLOCK STARTING VALUE 
THE # OF CLOCK INT. BUFFER 
THE NUMBERS OF SECONDS BUFFER 


THE NUMBERS OF MINUTES BUFFER 
COMMAND MODIFIER 


STARTING TRACK BUF 
NDING TRACK BUF 


E T 

T FAC 
BUFFER LENGTH 
TEMP. BUF 


FER 
STAR. ING FREE MEMORY ADDR. 





EC. CZRCECIZRCFCS. B16;4 











F16 





SEG 0200 
P 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0 age 5 
V03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1: (AZTEC. CZRCEEIZRCFC3, B16;4 (3) 
» wma i MEM_SIZE, ! FREE MEMORY SIZE 

; 1633 1 H_SADD, ! FREE HOST MEMORY START AD. 
> 1634 1 H_EADD ! FREE HOST MEMORY END AD. 
; 1635 1 INI_MSG ' INIT ERROR MESSA 

> 1636 1 _VECTOR, ' VECTOR BUFFER 

; 1637 1 P-IP_ADDRESS, ' RC25 ADDRESS 

; 1638 1 RET STATUS, ! COMMAND STATUS BUFFER 
; 1639 1 ADAPTO, ! ADAPTOR FRU MES 

; 1640 1 IME ! PLIT LOCATION TO STORE DATA 
> 1641 1 MSG_i, ' ERR SSAGE 1 

: 1642 1 MSG_2, ! ERROR MESSAGE IN TEST 
; 1643 1 MSG_7, ! ERROR MESSAGE I 

> 1644 1 MSG_8, ! ERROR MESSAGE IN TEST 
> 1645 1 MSG_9 ! ERROR MESSAGE IN TEST 
> 1646 1 MSG_10, ! ERROR MESSAGE IN TEST 
; 1647 1 MSG_11, 1 ERROR MESSAGE IN TEST 
; 1648 1 MSG_13, ! ERROR MESSAGE IN TEST 
; 1649 1 MSG_14, ! ERROR MESSAGE IN TEST 
; 1650 1 Q5T14, ' MESSAGE 

; 1651 1 QsTis, ! MESSAGE 

; 1652 1 : ! ERROR MESSAGE IN TEST 
; 1653 1 FMTi, ! FORMATTED MESSAGE 

; 1654 1 FMT2, ! FROMATTED MESSAGE 

; 1655 1 FMT3. ! FORMATTED MESSAGE 

; 1656 1 FMT4. ' FORMATTED MESSAGE 

; 1657 1 MTS, ' FORMATTED MESSA 

; 1658 1 FMT6. ! FORMATTED MESSAGE 

; 1659 1 MT7. ! FORMATTED MESSAGE 

; 1660 1 FMT7A, ! FORMATTED MESSAGE 

; wen S FMTB, ! FROMATTED MESSAGE 

> 1662 1 FMT9. ! FORMATTED MESSAGE 

; 1663 1 FMT10, ! FORMATTED MESSAGE 

> 1664 1 FMT11, ' FORMATTED MESSAGE 

; 1665 1 FMT12, ! FORMATTED MESSAGE 

> 1666 1 FMT16, ! FORMATTED MESSAGE 

, weer ft FMT17, ! FORMATTED MESSAGE 

; «©1668 1 FMT18, ! FORMATTED MESSAGE 

; 1669 1 FMT19. ! FORMATTED MESSAGE 

; 1670 1 FMT20, ' VER:C 

; nT I FRU, ! FRU = MESSAGE 
7S) FMT$A, 

; ome ft M7, ! TEST HEADER MESSAGES 
s 1674 i DBMS, 

; 1675 i M9, 

. ten ft 0BM10, 

;. cae 2 OBM11, 

; 367 1 DBM12, 

; 1679 1 DBM13, 

; 1680 1 0BM14. 

; 1681 1 DBM15, 

; 1682 1 OBM16, 

; 1683 1 DBM17. 

; 1684 1 OBM18, 

; 1685 1 0BM19, 

; 1686 1 DBM20, 

; 1687 1 OBM21, 

; 1688 1 OBM22, 





G16 





SEQ 0201 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-57 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCFC)ZRCFC3.B16;4 os (35 
> 1689 1 DBM23, 

; 1690 1 DBM24, 

>; 1691 1 DBM2S, 

> 1692 1 DBM26, 

>; 1693 1 DBM27, 

>; 1694 1 OBM28, 

>; 1695 1 0BM29, 

>; 169% 1 DBM30, 

; 1697 1 DBM31, 

>; 1698 1 DBM32, 

; 1699 1 M36, 

; 1700 1 DBM37, 

» sri DBM38, 

s ime DBM39, 

; 1703 1 MSG_HSWICH_ERR, 

; 1704 1 MSG_READ_ERR, 

; 1705 1 MSG_SAC_ERR 

; 170 1 MSG_AVE_TIME, 
ser 2 MSG_PRO_TIME, 

; 1708 1 MSG_SK_TIME 

; 1709 1 MES SKO_TIME, 

; 1710 1 MG_SKF_ TIME, 

oo ee MSG_ROT_TIME, 
ree MSG_COM_WPT, 

3 iv7is i : 

‘tee, SK_FOR_ERR, 

; Bs. F SK_REV_ERR, 

» tM a SK_RAN_ERR, 

sir & OG_ERR, 

; 1718 1 MSG_WRITE_ERR, 

; 1719 1 MSG_GUS_ERR, 

; 1720 1 AVAIL_ERR, 

. lage = MSG_SEEK_ERR, 

. Kye ft ' 

; 1723 1 AZT_READY_ERR, 

; 1724 1 EXE_SUP_ERR, 

; 1725 1 SND_DATA_ERR, 

; 1726 1 RE DATA _ERR, 

; 1727 1 BUFF_ERR, 

3. 1728 1 DMC_ERR, 

. fe & BRERR, 

; 1730 1 TIP; 'TEST IN PROGRESS 
_~ sven 2 

3 1732 1 external routine 

; 1733 1 NX : novalue, 

; 1734 1 AZT_INIT, 

; 1735 1 AZP_ INIT 

; 173 1 FIND CLOCK : novelue, 
5 i737 1 CLOCK_INIT : novalue, 
; 1738 1 RC25$ERR_RPT : novalue, 
; 1739 1 INIT_COM_AREA, 

; 1740 1 REC_5ST ‘. 

s 3701 3 EX _SUP_PRG, 

; 1742 1 RAND ‘ 

nee ee REC_DATA, 

; 1744 1 SEND_DATA, 

.) see 5 SET_ENTLR_CHAR, 












H16 





SEQ 0202 
p 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4 age 
V03.0 TEST SECTION 57-Mar-1985 13:28:18  USER#1:(AZTEC-CZRCEC J2RCFCS, B16;4 (3) 
; 1746 AVAILABLE, 

; 1747 READ_CMD, 

; 1748 READ_FILL_CMD, 


LINE 
Get _ntt STATUS, 
T_CMD_SLOT, 


~ 
~ 
ui 
~ 
ee be pw be be pw pe po po pe 


3 1752 na 

3 1753 EXAM_DATA, ! EXAMINE THE FREE MEMORY DATA 
; 1754 AZTEC_READY, ! GET AZTEC READY 

s 1755 DO_RETRIES : novalue; 

; 1756 

3; 1757 '<BLF/PAGE> 








116 





SEQ 0203 
ZRCFBS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 X-11 Bli age 8 
03.0 TEST SECTION 27-Mar-1985 13:28:18 Vsenr 1:(AZ cE aRCECIIRCFCS. B16;4 (4) 
3 1758 1 ’ 
3 1759 3 BGNTST; 
F 1760 3 
3 1761 3 “ 
3 1762 3 TEST ty REGISTER EXISTENCE TEST 
; 1763 3 DESCRIPTION 
; 1764 3 : THIS TEST WILL FIRST CHECK FOR THE EXISTENCE OF THE ADDRESS OF THE IP 
3 1765 3 : AND SA REGISTERS FOR THE DEVICE UNDER T 
3 1766 : : sepontee. MEMORY ADDRESSES ARE NON- EXISTENT, THE ERROR WILL BE 
3 U ! 
>; 1768 3 : IF THE OPERATOR .: SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM THE 
8 1769 3 ' BEGINNING OF SUB TEST. 
3 1770 3 : 
3 1771 3 
3 1772 3 local 
: 1773 3 DUMMY; 
’ 1774 3 
: ee Hy if .SWP_TRACE then PRINTF (0BM7); ' TEST 1 
; 1777 5 apg 
; 18 : NUM_RETRIES = ZERO; ! CLEAR RETRY COUNTER 
3 tres ? while (.NUM_RETRIES lequ .SWP_RETRIES) do 
3 1782 6 pen.” NEX ALSE; ' CLEAR OUT NEX FLAG 
; 1733 . SeTVEC (4, NE. PRIO7); ! SET UP FOR AN NEX TRAP 
3 1785 7 if .(.RT_TABLE ([RT_IP_ADDRESS) «+ 2) ' READ THE SA REGISTER 
>; 1786 6 then ! THIS IS SO THAT IF THERE 
»s ier 7 begin ! 1s AN NEX THERE WILL BE 
: 1788 7 DUMMY = 1; ' A SINGLE OPPERAND INST. 
3 ioe : end; ! SO THAT IT WILL TRAP 
F 1 
: ises : CLRVEC (4); ! CORRECTLY. 
; 1793 6 if ,I_AM_NEX eqlu ALL_ONES ! SEE IF WE GOT AN NEX 
3 1794 6 then 
; 1795 7 gic ! ADDRESS NOT THERE 
>; 1796 7 P_MASK = 1; 
; 1797 7 Pi = FMTl; 
5 1798 7 P2 = _" 
$ 1799 7 P3 = 
3 1800 7 P4 «= ¢! RC2S ADDR) «+ 2; 
; 1801 7 ERRDF (1, M5G_1 " RC2S$ERR_RPT); ! PRINT ERROR MESSAGE 
3 1802 7 CK OOP. 
$ 1803 7 D00_ =RETRIES (); 
3 1804 6 end; 
> 1805 6 : : 
3 138 ? if (.NUM_RETRIES eqlu ZERO) then exitloop; 
3 1808 5 end; 
s 1809 5 
3 1810 5 NUM_RETRIES = ZERO; !' CLEAR RETRY COUNTER 
>; 1811 3 ENDSUB ; 
3 1812 5 BGNSUB ; 
: 1813 : 


while (.NUM_RETRIES lequ .SWP_RETRIES) do 


— 











J16 


SEQ 0 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0 Ste 9 
0 TEST SECTION 27-Mar-1985 13:28:18 USER$1;: (AZTEC. CZRCECIZREFC3, B16;4 (4) 
: 1815 6 begin 
8 1816 6 I_AM_NEX = FALSE; ' CLEAR TRAP FLAG 
3 +t : SETVEC (4, NXMI, PRIO7); ' SET UP TRAP VECTOR IF NEX 
; 1819 7 if .(.RT_TABLE (RT_IP_ADDRESS)) ! READ IP REGISTER 
; 1820 6 then 
3 1821 7 begin 
. Joan F Y= 1; 
5 3 6 end; 
3 1824 6 
: ext CLRVEC (4); ' CLEAR THE VRCTOR 
; 1827 6 if .I_AM_NEX eqlu ALL ONES ' CHECK FOR TRAPS 
3 1828 6 then 
; 1829 7 begin 
; 1830 7 P_MASK = 1; 
H 1831 7 Pi = FMT1 
; 1832 7 P2 = pth 
s 2835 7 P4 = .RC25 
; 1835 : ct (2, Asc. 7 RC25$ERR_RPT); ! PRINT OUT ERRO MESSAGE 
; 1836 7 DO-PETRIES (); 
8 1837 6 enc; 
3 1838 6 
3 1839 6 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
3 1840 6 
s 5 end; 
3 1842 5 
3 ines : tas ame eqlu ALL_ONES ! IF REGISTERS ARE NON-EXISTENT 
3 n 
>; 1645 6 Regia ! THEN DROP THE UNIT FROM TESTING 
3 846 6 DODU (.LOG_UNIT); 
$ 6 DOCLN; 
8 2 end; 
: 3 ENDSUB; 
; 1 ENDTST; 
-TITLE ZRCFB3 CZRCFCO RC25 FR END TEST 
-IDENT /V03.0/ 
-PSECT $OWN$, OD 
CMOBF1: .BLKW 20 
ENDBFi: .BLKW 20 
RING.B: .BLKW 40 
111111 DATA.PAT1: 
. WORD -66667 
444 WORD 44444 
022222 «WORD 22222 
00 DATA.PAT2: 
.WOR -400 
007760 WORD 7760 
000377 . WORD 377 
155555 DATA.PATS: 
«WORD -22223 











133333 


CZRCFCO RC2S FR END TEST 
TEST SECTION 


«WORD 
. WORD 
DATA,PAT4; 
.WOR 
» WORD 
. WORD 
SEND .PKT: 
PATTERN. ADOR: 
-BLKW 


K16 


SEQ_0 

27-Mar-1985 15:27:28 X-11 Bliss-16 Ny 10 
57-Mer-1988 13,28;18  USERSL: CAZTEC-CZRCFCIZRCFCS. B16;4 (4) 

-44445 

66666 

377 

-7761 

-400 

4 


1 


RT. TABLE RC2S. ADDR RC2S. DATA 
UNIT, LOG.UN ETRIES, P 
NUM. RETR RIES Dee eR ACE, Sues “Rerares 


NGBASE, BUF. 
CMD:REF, CMD.SLOT, RES.SLOT, 0M.09 
OM.i0, OM.11, OM.i2, D 433 "DM. i 
OM.21, OM.26, DM.27, BYTE. COUNT 
MSGADR, MEM. P. MASK 
DATA1, DATA2, DATA3, DATA4, END.LBN 
SWP .C ANUAL, MANU, SW 


H 
HTA6 Furi FMTi8 pat ig. “FHI20 

, FMT$A, OBM7 ners DBM10 
Mia penion "bent 


DBM27, OBM28, DBM29, DBM30 
0BM31, DeHSe DBM36, DBM37, DBM38 
DBM39, MSG.HSWICH.ERR, MSG.READ.ERR 
MSG SAC ERR, MSG. AVE. TIME 
MSG.SK.TIME, MES. 


B 
AZP.INIT, FIND.CLOCK, CLOCK. INIT 











CZRCFCO 34 FR END TEST 
TEST SECTION 


000001 0000006 


0000006 

000091 000002 
000001 

000004 


000000G 177777 


000010 


000000G 
0000006 


$Ti: 


1$: 
2s: 


3$: 


4$; 
5$: 


GLOBL 


-SBTTL 
-PSECT 


L16 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


VAX-11 Bli 
USER$1: [AZ 


ee ye F .RPT, INIT.COM.AREA, REC.STATUS 


X,SUP.PRG, 


OM.NUM, 
SEND.DATA, aria’ vol aan CHAR 


READ.CMD, Ri EAD FI 
GET.UNIT. CEI icCHb. St 


00.R 

$T1 ose. oe 
AC$COD 

R1,-(SP ) 

01,SWP. TRACE 

@0BM7, -( SP) 

1, -(§P) 


17 
(SP)+,(SP)- 


NUM. RETRIES 
am. -RETRIES,SWP.RETRIES 


ORT. TABLE ,RO 
+ aaa 


91,R1 
#4 ,R0 


36 

sates dat 
#1,P.MASK 
OFMT1,P1 
#1,P2 

P3 

RC25. ADDR ,RO 
#2 ,RO0 


RO,P4 
55 


MSG.1 
RC25$ERR.RPT 
65 

4s 

#10,SP 

8$ 


PC,D0.RETRIES 
ar. SE TRIES 





DecoDe, EXAM, Witt AZTEC. ay 


A 
AVAILABLE 
ates 


SP,* 


*« , DUMMY 


»- 98 SEQ 0206 
TEC. CORCFCIZRCFCS. B16;4 





11 
(4) 


1755 
1775 


1803 
1806 


M16 


SEQ 0207 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bi 579 Page 
TEST SECTION 37-Mar-1985 13:28:18  USERS1:(AZTEC. Me oRCEC IZRCFCS, B16;4 (4) 
000010 ADD #10,SP 
BR 4 
000010 64: ADD #10, SP 
0000006 7$: CLR NUM. RETRIES 
8$: TRAP = 667 
ROR RO 
BLO 1$ 
94: TRAP sD 
0000006 0000006 108: CHP NUM. RETRIES, SHP. RETRIES 
0000006 CLR 1, AM.NEX 
000340 V 0340, -(SP) 
0000006 MOV ONXMI, -( SP) 
000004 MOV 04, -($P) 
000003 V 03, -(5P) 
TRAP 
0000006 MOV BRT. TABLE RO 
000001 BIT #1,(RO) 
BEQ 118 
000001 MOV 1,R1 
000004 11s: MOV, 94,RO 
0000006 177777 cre T .AM.NEX, 0-1 
000001 0000006 MOVB  01,P.MASK 
0000006 0000006 MOV OFMTi,P1 
000001 0000006 MOV 61,P2 
0000006 0000006 MOV RC35, ADDR,P4 
TRAP ss SS 
. WORD 
"WORD MSG.2 
"WORD RC2S5$ERR.RP? 
TRAP) «46S 
ROR RO 
BCC 12$ 
000010 ADD 010,SP 
BR 16$ 
0000006 12%: JSR PC, DO.RETRIES 
0000006 135: st Nu RETRIES 
000010 ADD 010,SP 
BR 158 
000010 144: ADD #10,SP 
BR 108 
0000006 177777 15$ CMP 1, AM.NEX, 0-1 
BNE 16$ 
0000006 MOV LOG.UNIT,RO 
TRAP 
TRAP = 44 
16$: TRAP 67 
ROR RO 
BLO 9$ 
RTS PC 


164 words, Routine Ease: ACSCODE + 0000 











ZRCFBS 
vo3.0 


; Maximum steck depth per invocation: 7 words 


000010 
000012 


3; Routine Size: 
; Meximum stack depth per invocation: 2 wor 


004767 
104466 


006000 
103773 
000207 


3 1852 1 









SEQ 0208 
oeey ce RC2S FR END TEST 27-Mar-1985 15:27:28 X-11 Bli 579 Page 13 
SECTION 27-Mer-1985 13:28:18 USERIL 1; (AZ rec. CZRCFCIZRCFCS. B16;4 (4) 





-SBTTL T1 TEST SECTION 


177264 $3 
1$: JSR PC, $T1 
TRAP 66 
OR RO 
BLO 1$ 
RTS PC 
6 words, Routine a ACSCODE + 0510 


!<BLF /PAGE> 


Se SF GF Ge GF GF GF GF Ge Gt GH GF GF Ge Ge Gs GF G+ GH Ge GF SH Gs Ge GF GF GF Ge OF Se OF 6s Ge Os Ge oe os Os 66 Oe Os Os oe oe 





rw 
@ 
~ 
uw 
HPUWUNWE SSS HLaVUVUVUVUU SS PP hLL DS PUWUWWWWWUWWWWW We 












C1 


SEQ _ 0209 
P 14 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bliss-16 V4.0-579 ~ Page 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFC)ZRCFC3.616;4 (5) 
' 

BGNTST; 


See 

. pest ts m, :* ataaes TEST (POWER UP DIAGNOSTICS) 

' THIS TEST INIT’ THE AZTEC AND RUNS THE POWER UP ee ee BY 
: WRITING WITH STEP1 DATA, THEN IT WILL CHECK FOR ERRORS AND 

: REPORT IF AZTEC DOES NOT COME UPTO STEP2 READ 
' 
o 


NUM_RETRIES = ZERO; ! CLEAR RETRY COUNTER 
if .SWP_TRACE then PRINTF (DBM8); ! TEST 2 


wits > (,NUM_RETRIES lequ .SWP_RETRIES) do 
i Site 1 he WITH STEP 2 READ 


BATA 57600' + .RT_TABLE [RT_VECTORI/Q. ee” oP ecrecT Sree, URTTE DATA WITH 
1+ #0! ta, . 1 MAX RING SIZES IE AND VECTOR 
i ADDRESS 
if AZT_INIT () ! PORT SHOULD NOW GET TO STEP2 


AFTER FINISHING INTEGRITY CHECK 
DIAG. IF NOT REPORT ERROR 


then 
begin 
ERADF (3, MSG_14, RC2S$ERR_RPT); 
if .RET_STATUS then DECODE (); 


DECODE STATUS 
CKLOOP; 
RETRIES = TRUE; 
end; 

if (.RETRIES) then DO_RETRIES (); 

if (.NUM_RETRIES eqlu ZERO) then exitloop; 


ee 


RETRY IF ERROR 


end; 
return; 
ENDTST; 
ae gSBTTL $2 $T2 TEST SECTION 

o00001" 0000006 ; BIT a, , SP, TRACE 
0000006 MOV ODBMB, - (SP) 
000001 MOV #1,-(SP) 

MOV SP RO 

TRAP 17 

CMP (SP)+,(SP)-« 
0000006 0000006 1$: OP NUM. -RETRIES, SWP.RETRIES 





112767 


; Routine Size: 3 : 
; Maximum stack depth per invocation: 


004767 
104466 
006000 
103773 
000207 


000000 
000000 
000004 
000006 
000010 
000012 


+ Routine Size: . 
; Maximum stack depth per invocation: 


; 1697 1 





CZRCFCO RC2S FR END TEST 
TEST SECTION 


000001 0000006 


2s: TRAP 


68 words, Routine Base: 
4 words 
. SBTTL 
177564 T2:: 
1$: JSR 
TRAP 
ROR 
BLO 
RTS 


Routine Base: 
2 words 


6 words, 


! <BLF /PAGE > 


AC$CODE + 0524 


ACSCODE + 0734 







D1 


SEQ 0 
27-Mar-1985 15:27:28 1 Bliss-16 579 hy 
27-Mar-1985 13:28:18 USERS 1: (AZTEC. CORCECIZRCFCS. B16;4 


#1,8.MASK $ 
RT. TABLE ,RO ; 


2 1 

1 (5) 
1871 
1872 





as’ AZT. INIT 
as 

MSG.14 
RC2SSERR.RPT 
$1,RET.STATUS 
PC ,DECODE 
65 

RO 

3$ 
(SP)+,(SP)- 
PC 


01,RETRIES 
#1,RETRIES 


PC,DO.RETRIES 
- iia ate 
(SP)+,(SP)- 
(SP)+,(SP)- 
1$ 


T2 TEST SECTION 
PC,$T2 
6 


= —— 
El 


ZRCFB3 CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bliss-16 V 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCEC IZRCFC3, B16;4_ 
: 1898 3 BGNTST; 

3 1899 3 

; 1900 3 fee 

3 1901 3 ! TEST @3 - DIAGNOSTIC WRAP TEST 

: 1902 3 : 

: ‘os : DESCRIPTION: 

3 

8 1905 3 ' THE AZTEC WILL BE INITIALIZED IN DIAGNOSTIC WRAP MODE AND A ONE BIT 
3 1906 3 : AND ALSO ZERO BIT FLOATED THROUGH THE SA REGISTER TO SEE THAT IT 

3 pod ; ECHOES PROPERLY. 

3 190° 3 ‘ A FAILURE TO ECHO WHAT WAS WRITTEN WILL RESULT IN A CALLOUT 10 THE 
3 By : ADAPTER CARD FRU. 

3 i912 3 ' IF THE OPERATOR HAS es Se LOOP ON ERROR, THE PROGRAM WILL LOOP ON 
3 1913 3 ' THE FAILING WRITE AND READ. 

: 1914 3 ‘ 

3 1915 3 s 

3 1916 3 

8 1917 3 local 

s 1918 3 TST_PAT; 

3 1919 3 

8 cast ; if .SWP_TRACE then PRINTF (DBM10); ! TEST 3 

; ios ; NUM_RETRIES = ZERO; 

$ 1924 3 wey * C,NUM_RETRIES lequ .SWP_RETRIES) do 

3 1925 4 begin 

: 1926 4 TIP = 4; 

3 1927 4 : 

3 1928 4 § STEP] WRITE 

3 1929 4 : 

3 1930 4 8 = 0; ' MASK FOR STEP1 READ 

3 1931 4 DATA1 = #0'140000'; ' STEP1 WRITE WITH WRAP MODE BIT SET 
8 1932 4 DATA2 = #0'10'; ' TIME OUT COUNTER 

3 lone : DATA3 = ZERO; ! TEMP STORAGE FOR RCSA DATA 
$ 1935 4 if AZT_INIT () ' CALL STEP 1 ROUTINE 

3 1936 4 then 

3 1937 5 pean 

; 1938 5 ERRDF (4, MSG_14, RC25$ERR_RPT); ' PRINT NUT ERROR REPORT 

3 1939 5 CKLOOP; 

; 1940 5 RETRIES = TRUE; 

3 1941 5 end 

$ 1942 4 else 

$ 1943 5 begin 

3 ises : WRT_RC25 (RCSA, .DATAI); ! DO STEP1 WRITE WITH DWM. 
; 1946 5 while ((.DATA3 mequ .DATA1) and (.DATA2 nequ ZERO)) do 

; 1947 6 begin 

$ 1948 6 DELAY (333) 

5 1949 6 DATA2 = .DATA2 - 1; 

$ 1950 6 DATA3 = .RC25_ADDR [RCSA, RC_ALL]; ! 

3 1951 5 end; 

3 1952 5 

$ ieee : TST_PAT = #0'000001'; ! START TEST PATTERN TO 


[— 























Fi 





SEQ 0212 
P 17 


ZRCFBS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 Page 
V03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCFC)JZRCFC3.616;4 (6) 
1955 incru FLOAT from 0 to 15 do ! NOW FLOAT TEST PAT 
i ba : 
1958 incru COUNT from 0 to 1 do ! FLOAT ZEROES AND THEN ONES 
1959 begin 


if .COUNT eqlu 1 then TST_PAT = not .TST_PAT; 


~ 
OOOO OO OHI AOOU 


: 
; 6.1963 BGNSUB ; 
; 1964 WRT RCOS RCSA, .TST_PAT); WRITE TEST PATTERN TO SA 
; 1965 DELAY WAIT FOR IT 10 
; 1366 RC25_DATA ircsa, RC_ALL) = R25; ADDR (RCSA, RC_ALL]; | ! GET RCSA DATA 
; 1968 if .RC25_DATA (RCSA, RC_ALL]) nequ .TST_PAT ! TEST SA FOR TEST PATTERN 
; 1969 then ' IF NOT EQU THEN 
; 1970 10 begin ! PRINT OUT ERROR REPORT 
; 1971 10 P_MASK = 2; 
; 1972 10 Pj = at TY ! MESSAGE ADDRESS 
3 1973 10 P2 = ADAP ! FAILING F 
; 1974 10 P6 = (. Rc2s ADDR) + 2; ! FAILING ADDRESS 
3 1975 10 P4 = I T PAT; ! GO ATA 
; 1976 10 PS = .RC25_D ATA (RCSA, RC_ALL); ' BAD DATA 
; 1977 10 ERROF “fg? Asc. 7, RC2S$ERR_RPT); ‘ 
; 1978 10 CKLOOP; 
; 1979 10 RETRIES = TRUE; 
; 1980 9 end; 
; 1981 9 
; 1982 7 ENDSUB; 
; 1983 6 end; 
3; 1984 6 
; 1985 6 TST_PAT = not .TST_PAT; 
; 1986 6 TST_PAT = .TST_PAT?1; ! SHIFT THE BIT DOWN 1 
: 1987 5 end; 
; 1988 5 
: 1989 4 end; 
3 1990 4 
3 1991 4 if (.RETRIES) then DO_RETRIES (); ! DO RETRIES IF IN ERROR 
; 1993 4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
: 1994 4 
: 1995 3 end; 
; 1996 3 
; 1997 3 WRT_RC25 (RCIP, ALL_ONES); 'REINITIALIZE THE PORT 
; 1998 1 ENDTST; 
.GLOBL LSDLY 
.SBTTL $13 TEST SECTION 

000000 004167 000000G $73 JSR R1, $SAVE4 
000004 162706 000006 SuB 06, SP 

10 032767 000001 0000006 BIT #1,SWP. TRACE 

16 001407 BEQ $ 
000020 012746 0000006 MOV #DBM10, -( SP) 

0024 012746 000001 MOV #1,-(SP) 
30 010600 MOV SP ,RO 








001411 





CZRCFCO vss So FR END TEST 
TEST SECTI 


000000G 
000000G 0000006 


000001 
000000 000001 
0000006 


000002 
000012 


1$: 
2s: 


3$: 


15$: 


Gl 


27-Mar-1985 15:27: 
13:28: 


27-Mar-1985 


TA3 

PC, AZT. INIT 
RO 

5$ 

55 

4 

MSG.14 
RC2S$ERR.RPT 
65 

RO 

43 

23% 
$1,RETRIES 
208 
DATAI,R1 
RC25. ADDR, RO 
R1,2(RO 
DATA3, DATA 
11$ 

DATA2 

11$ 

$515,R1 

10$ 
L$DLY,RO 

9$ 
4(SP) 

0 


Brose ADDR, RO 
2(RO), (SP) 
(SP), “DATA 


R1 
RC25.ADDR,RO 
R1,2(RO) 
#12,R1 
18$ 





SEQ 0213 
X-11 Bliss Page 18 
USERGI: PAZTEC CZRCECIZRCFCS. B16;4 (6) 
1922 
1924 
3 1926 
; 1930 
; 1931 
3 1932 
3 1933 
; 1935 
3 1938 
; 1940 
F 1935 
; *,RCM.REG 1944 
3 RCM.REG,* 
3 1946 
; *,$$TMP2 1948 
3; *,$$TMP1 
3; $$TMP 
3; $$TMPl 
3; $$TMP2 
















1949 
1950 
*#,RC.REG 
RC.REG,* 
1946 
*, TST.PAT 1953 
FLOAT 1955 
COUNT 1958 
1961 
TST. PAT 
TST.PAT,RCM.REG 1964 
RCM.REG,* 


*, $$TMP2 





Hi 





SEQ 0214 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0 “. “o 19 
TEST SECTION 37-Mar-1985 13:28:18 | USER$1:(AZTEC. CzRcee IZRCFCS, B16;4 (6) 
0000006 MOV L$DLY,RO ; #, $$TMPL 
BEQ i7$ 
000004 16$: CLR 4(SP) ; $$TMP 
DEC RO + $$TMPL 
BNE 16$ 
178: DEC RL ; $$TMP2 
0000006 18$: MOV RC25. ADDR, RO ; 1966 
000002 000002 MOV 2(RO),2(SP) ; #,RC.REG 
000002 0000026 MOV 2(SP),RC25.DATA+2 ; RC.REG, « 
CHP acSP), ; RC25.DATA+2,TST.PAT 1968 
000002 §R00006 MOVB 62,P.MASK ; 1971 
MOV MT2,P1 ; 1972 
000001 0000006 MOV #1,P2 ; 1973 
MOV RC25. ADDR, RO ; 1974 
000002 ADD 02,R0 
MOV RO. P6 
0000006 MOV R2,P4 ; TST.PAT,« 1975 
0000026 0000006 MOV RC25.DATA+2,P5 ; 1976 
TRAP 3s §5 ; 1977 
WORD 
"WORD MSG.7 
“WORD RC25$ERR.RPT 
TRAP 3 s«#6S 
ROR RO 
BLO 19$ 
000001 0000006 MOV #1,RETRIES : 1979 
19$: TRAP 67 : 1980 
ROR RO 
BLO 14$ 
INC R3 ; COUNT 1958 
000001 CMP R3, 01 ; COUNT, «* 
BLOS 133 
COM R2 ; TST.PAT 1985 
ASL R2 ; TST.PAT 1986 
INC R4 ; FLOAT 1955 
000017 CMP R4, 017 ; FLOAT,* 
BLOS  12$ 
000001 0000006 205: err 1, RETRIES : 1991 
0000006 JSR PC,DO.RETRIES 
0000006 210: ST NUM, RETRIES : 1993 
BEQ 22$ 
177274 JMP 2$ 
177777 22$: MOV #-1,RO ; *,RCM.REG 1997 
0000006 MOV RO,@RC25. ADDR ; RCM.REG, « 
000006 23$: ADD #6,SP ; 
RTS PC 
; Routine Size: 186 words, Routine Base: AC$CODE + 0750 


; Maximum stack depth per invocation: 12 words 


-SBTTL 13 TEST SECTION 








———_—_— 
Ii 





SEQ 0215 
ZRCFR3 CZRCFCO 5 24 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 Pp 
vo3.0 TEST SECTI 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCECIZRCFCS. B16;4 
000000 004767 177210 T3:: 
000000 1$: JSR PC,$T3 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ACS$CODE + 1534 


; Maximum stack depth per invocation: 2 words 


5 Go & !<BLF /PAGE > 





Jl 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bliss-16 V vg being 21 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 | USER$1:[AZTEC. CZRCEC IZRCFCS, B16;4 (7) 
; 2000 1 ' 

; 2001 3 BGNTST; 

3 2002 3 

; 2003 3 fee 

; 2004 ; ! TEST @4 - VECTOR AND BR LEVEL TEST 

; 2006 : DESCRIPTION: 

; 2008 3 ' THE INIT SEQUENCE WILL BE STARTED WITH THE INTERRUPT ENABLE BIT SET TO 
; 2009 3 VERIFY THE AZTEC'S VECTOR AND BR LEVEL. 

: 2011 3 THIS TEST ASSUMES THE VECTOR GIVEN BY THE OPERATOR IS CORRECT. 

; 2013 3 THE PRIORITY LEVEL OF THE INTERRUPT REQUEST WILI. BE VERIFIED. 

> 2015 3 ‘ FAILURE OF THE AZTEC TO VECTOR PROPERLY WILL NECESSITATE THAT THIS 

; 2016 3 ‘ PROGRAM BE RESTARTED. A COMPLETED INTERRUPT AT THE WRONG BR LEVEL 

; 2017 3 WILL BE REPORTED. 

; 2019 : LOOP ON ERROR WILL RESTART THIS TEST IF THE ERROR IS RECOVERABLE. 

; 2021 3 ‘ 

s 2022 3 ‘. 

; 2023 3 

; 2024 3 ' 

: 2025 : NUM_RETRIES = ZERO; 

; 2027 : if .SWP_TRACE then PRINTF (DBM11); TEST 4 

; gon § while (.NUM_RETRIES lequ .SWP_RETRIES) do 

3 2030 4 begin 

; 2031 4 TIP = 5; 

; 2ose 4 TEMP = PRIO7 ! START WITH HIGHEST PRIORITY 
; 2033 4 “AM_NEX = FALSE; t CLEAR INTERUPT LAG 

; 2034 4 BMASK = 0; ! STEP 1 READ M ASK 

; 2035 4 DATAl = #0'104600' + .RT_TABLE [RT_VECTOR]/4; ‘INTERRUPT ENABLE BIT SET 
; 2036 4 SETPRI (. TEMP); ! SET HOST PRIORITY 

; 2038 4 if AZT_INIT () ! BRING UP TO STEP 1 READ 

; 62039 4 ' AND GET STATUS 

F 2040 4 then ' IF ERROR 

3 2041 5 peaie ' THEN 

; 2042 : ERRDF (6, MSG_14, RC2S5$ERR_RPT); ! REPORT IT 

; 2044 5 if .RET_STATUS then DECODE (); ! DECODE STATUS 

; 62046 5 CKLOOP; 

; 2047 § RETRIES = TRUE; 

3 2048 5 end 

$ 2049 4 else 

$ 2050 5 begin 

; 2051 § WRT_RC25 (RCSA, .DATAL); ! WRITE STEP 1 DATA 

; o038 : DELAY (5000); ! WAIT FOR INTERRUPT VER:C 

; 2054 5 while (. TEMP gequ #0'140') do 

; 6 


begin 


— 








ee ps Ki 


SEQ 6217 
ZRCFRS CZRCFCO ates FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 Sioes 2 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: [AZ TEC, CoRcée ZReFC3, B16;4 (7) 
: as 34 : if .I_AM_NEX eqlu ALL_ONES then exitloop; tIF INTERRUPT DID NOT 
: 
; 2059 6 TEMP = ,TEMP - #0'40'; ! NOT OCCUR 
: 2060 6 SETPRI (. TEMP); ! LOWER CPU PRIORITY 
3 2061 6 RETRIES = TRUE; 
3 2062 5 end; 
8 2063 5 
3 2064 4 end; 
3 2065 4 ‘ 
3 2066 4 if ,I_AM_NEX eqlu ALL_ONES ! IF INTERRUPT OCCURED 
3 2067 4 then 
3 2068 5 pogin ’ 
3 2069 5 TIP = .TEMPT-5 + 1; : GET PRIORITY 
3 2070 5 SETPRI- (PRIOO); ' SET HOST PRIORITY T 
3 2071 5 SETVEC (.RT “TABLE {RT_VECTOR), NXMI, TIP); $ SET UP SERVSCE ROUTINE. 
: e07e 2 PRINTF (INI-MSG, .RT_TABLE [RT_VECTOR], .TIP); 
: ors : if .TIP nequ .RT_TABLE [RT_BR_LEVEL) then PRINTF (BRERR); ' IF RECEIVED BR IS NOT THE 
3 2076 5 ! SAME AS TYPED REPORT ERROR 
3 2077 5S RETRIES = FALSE; 
8 2078 5 end 
3 2079 4 e.se 
3 2080 5 begin 
3 2081 5 RETRIES = TRUE; 
3 2082 5 ERRDF (7, END_MSG, 0); ' ERROR 
3 2083 5 CKLOOP; 
8 2084 4 end; 
3 2085 4 : 
1 cose ; if .RETRIES then DO_RETRIES (); 
3 2088 4 ** (.NUM_RETRIES eqlu ZERO) then exitloop; 
3 2089 4 
3 3 end; 
3 2091 3 
3 2092 1 ENDTST; 
wa, SGT age Tey sectzm 
$ e~ 3 1998 
TST -(SP) 
0000006 CLR NUM .RETRIES A 2025 
000001 000000G 2M ie SWP . TRACE 3 2027 
000000G MOV s5er11. -(SP) 
000001 MOV @1,-(SP) 
MOV »RO : SP, 
TRAP 17 
MP (Ss )e AS )e 
000000G 000000G 1$: “44 _ RETRIES,SWP.RETRIES : 2029 
000520 16$ 
000005 000000G 2s: MOV @5,TIP F 2031 
000340 000000G MOV 0340, TEMP ; 2032 
000000G CLR zm " NEX 3 2033 
900000G CLRB 6. MASK 3 2034 
000000G MOV RT. TABLE ,RO ; 2035 














L1 oa eae 


f 
! 
SEQ 0218 
ZRCFR3 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:27:28 X-11 Bliss-16 V4.0-579 “Page 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 ER$1:(AZTEC.CZRCFCJZRCFC3.616;4 (7) 
000102 016046 000002 MOV 2(RO), -( SP) 
000106 012746 000004 MOV 9 
000112 004767 0000006 JSR PC;BLSDIV 
000116 010067 0000006 MOV RO, DATAL 
000122 162767 073200 0000006 SUB 073200, DATAL 
000130 016700 0000006 V TEMP ,RO ; 2036 
000134 104441 TRAP sj 
000136 004767 0000006 JSR PC,AZT.INIT : 2038 
000142 006000 R RO 
000144 103023 BCC S$ 
000146 104455 TRAP «55S ; 2042 
000150 000006 .WORD 6 
000152 0000006 "WORD MSG.14 
000154 0000006 “WORD RC25$ERR.RPT 
000156 032767 000001 0000006 BIT 01,RET. STATUS : 2044 
000164 001402 BEQ 3$ 
000166 004767 0000006 JSR PC, DECODE 
000172 104465 3$: TRAP 6S 
000174 006000 ROR RO 
000176 103002 BCC 4s 
000200 02 CMP (SP)+,(SP)« 
000202 000573 BR 16$ 
000204 012767 000001 0000006 4s: MOV 61, RETRIES ; 2047 
000212 000444 BR 10$ ; 2038 
000214 016701 0000006 S$: MOV DATA1,R} ; @,RCM.REG 5051 
000220 016700 0000006 MOV RC25. ADDR, RO 
090224 010160 000002 MOV R1,2(RO) ; RCM.REG,« 
000230 012701 011610 MOV 011610,R1 ; @,$$TMP2 2052 
000234 001411 6s: BEQ 9$ 
000236 016700 0000006 MOV LSDLY,RO ; 6, $$TMPL 
000242 001404 BEQ BS 
000244 005066 000004 7$: CLR 4(5P) ; $$TMP 
000250 DEC RO 3 $$TMP] 
000252 001374 BNE 7$ 
000254 005301 8s: DEC Ri ; $$TMP2 
000256 000766 BR 6$ 
026727 0000006 000140 95: CMP TEMP, 0140 : 2054 
096266 103416 BLO 10$ 
000270 026727 000000G 177777 CHP 1. AM.NEX, 0-1 : 2057 
000276 001412 BEQ 10$ 
000300 162767 000040 0000006 SUB 040, TEMP : 2059 
000306 016700 0000006 MOV TEMP RO : 5060 
312 104441 TRAP 4} 
314 012767 000001 0000006 MOV 01, RETRIES : 
322 000756 BR 9$ ; 2054 
324 026727 000000G 177777 10$: CMP 1. AM.NEX, 0-1 ; 2 
332 001065 BNE 12% 
334 016716 0000006 MOV TEMP (SP) , 2069 
012746 177773 MOV 0-5, -(5P) 
004767 0000006 JSR PC BL SSHF 
350 010067 0000006 MOV " 
354 005267 0000006 INC p 
005000 CLR 0 ; 2070 
362 10444} TRAP 
016716 0000006 MOV TIP, (SP) ; 2071 
370 012746 0000006 MOV ONXMI, -( SP) 
374 016700 0000006 MOV RT. TABLE .RO 


é 











M1 






SEQ 0219 
ZRCFR3 ZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 P 4 
v03.0 EST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCJZRCFC3.816;4 = (5 
000400 016046 000002 MOV 2(RO), -(SP) 
012746 000003 MOV 03, -($P) 
000410 104437 TRAP 3s «437 
000412 016716 0000006 MOV TIP, (SP) : 2072 
000416 016700 0000006 MOV RT. TABLE, RO 
016046 000002 MOV 2(RO), -(SP) 
012746 0000006 MOV OINI MSS, -(SP) 
012746 000003 MOV 03, -(SP) 
010600 MOV SP,RO ; SP,e 
000440 104417 TRAP 3s «437 
000442 016700 000000C MOV RT. TABLE ,RO : 2074 
000446 026760 0000006 000004 CMP TIP, 4(RO) 
000454 001407 BEQ 118 
000456 012716 0000006 MOV OBRERR, (SP) 
000462 012746 000001 MOV #1,-(SP) 
010600 MOV SP RO ; SP,e 
000470 104417 TRAP 
000472 005726 TST (SP). 
000474 005067 0000006 11: CLR RETRIES : 2077 
000500 062706 000016 ADD 016,5° ; 2068 
000504 000414 BR 138 3 2066 
012767 000001 0000006 12$: MOV 01, RETRIES ; 2081 
000514 104455 TRAP 3s §5 ; 2082 
000516 7 .WORD 7? 
0000006 "WORD END.MSG 
2 “WORD 
104465 TRAP) 66S 
ROR RO 
000530 103002 BCC 138 
000532 022626 CHP (SP)+,(SP)- 
000534 20416 BR és 
00054 032767 000001 0000006 13$: BIT @1,RETRIES : 2086 
006544 001402 BEQ 143 
200546 004767 0000006 JSR PC,DO.RETRIES 
000552 005767 0000006 148 157 NUM. RETRIES ; 2088 
000556 001002 BNE 158 
000560 022626 cmp (5P)-,(SP)- 
000562 000403 BR 16$ 
000564 022626 15s: CMP (SP)+,(SP)- , 2030 
000566 000167 177244 Joep 13 : 5029 
000572 005726 16%: ‘TST (SP). ; 1998 
000574 012601 MOV (SP )-,R1 
7% 000207 RTS PC 
; Routine Size: 192 words, Routine Base: ACSCODE + 1550 
; “ex'@um steck depth per ‘nvocetion: 14 words 
.SBTTL 14 TEST SECTION 
004767 177174 74:: 
I$: JSR PC, $14 ; 2090 
106466 TRAP 66 
006000 ROR RO 
103773 BLO 1$ 
000207 RTS PC 








: Routine Size: 
; Mex eum stec- 





CZRCFCO RC25 FR END TEST 
TEST SECTION 


6 words, Routine Bese: 


Gepth per invocetion: 2 words 


'<BLF /PAGE> 


ACSCODE + 2350 


lies-16 V“.0-57 
: (AZTE 


-CZRCFCJZR 





9 
CFC3.616;4 





SEQ 0220 zl 
st (7) 


SND SS SD DDANADH SSAA AAAAAMNHAAADND & H&S PWWWUWWIWUWWWWWWUWWUWU UU 


CZRCFCO a FR END TEST 
TEST SECTI 


BGNTS1; 


° 
4 


TEST S: STEP 1 -3 INITIALZATION TEST 
DESCRIPTION: 


— STEP READ COM 
N_ERROR REP 
THE SAME WILL BE REPORTED. 


NUM_RETRIES = ZERO; 
if .SWP_TRACE then PRINTF (DBM9); 


while (,.NUM_RETRIES lequ .SWP_RETRIES) do 
begin 


: STEP1 READ 
BGNSUB ; 
] 
ect IS welog, Ste we fee 
! STEP 1 READ 
B_MASK = 0; 
if AZT_INIT () 
then 


begin 
ERROF (8, MSG_14, RC25$ERR_RPT); 
if .RET_STATUS then DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
; 





Be 


27-Mer-1985 15:27:28 
27-Mar-1985 13:28:18 


THIS TEST WILL CHECK FOR INFORMATIONS ECHOED FROM PORT AT 
OMING UPTO THAT STEP FROM SCRATCH. IF THERE WAS 
ORTED OR ECHOED INFORMATIONS WERE INCORRECT 


LOOP ON ERROR WILL BE FROM THE BEGINNING OF SUB TEST. 


! CLEAR RETRY COUNTER 
! TEST 5 


START PORT INIT WITH MASK = 0 


BRING UP i STEP 1 READ 
tr Enno STATUS 


THEN 
REPORT IT 
DECODE STATUS 


! CHECK FOR CONTROLLER DEPENDENT INFORMATION FROM RCSA AT STEP 1 READ 


if (C.RC25_DATA (RCSA, RCSA_NV)) 


: or ook (.RC25_DATA [RCSA, RCSA 

H or 

: or not (.TEMP) and ( 
then 


-RC25_DATA 


pee ie = 2; 
PI = FMT3; 


_01))) 
TEMP) and not (.RC25_DATA~ RCSA, RC 
RCSA 


: CHECK THAT THE NV BIT DID 
NOT att. 


CHECK IF DI BIT SET 
RCSA. 0-883}, ! CHECK THE QB BIT 


te Not SET 





VAX-11 Bliss-16 
USER$1: (AZTEC 





Z S€0,0221 
NCZRCECIZRCFC3,B16;4 (88 





Co 





SEQ 0222 


VAX-11 Blige 9-16 V4 Page 


F RCFCO RC25 FR END TEST 27-Mer-19 :28 27 
yO8.0> Feet Sectto or 718 USER$1:(AZTEC.C CZRCF IZRCFCS. B16;4 © (8) 


8 
TEST SECTION 27-Mar-198 


vin 
be bee 
wu 
ror 


ADAPT 
(.RC25_ADDR) + 

iRC25, BATA tres’ RC_ALL); 
ERRDF (9, nic. 14, RC25$ERR_RPT); 
CKLOOP; 


RETRIES = TRUE; 


uv 
> 
ene 


MASK = STEP 1 
REPORT ERROR 


TEMP = .RC2S_ DATA (RCSA, RC_ALL); 
TEMP = ‘TEMP 

PRINTF CFHTS.° TEMP), 

ENDSUB ; 


PORT SPECIFIC INFO 
GIVE IT TO OPERATOR 


t 
: STEP1 WRITE WITH STEP 2 READ 


BGNSUB; e 

B_MASK = 1 

DATAL = %o' 137600' + .RT_TABLE (RT_VECTOR)/4; ' STEP1 WRITE DATA FOR MAX 
RING LENGTHS, IE AND 

VECTOR ADDRESS 


DO INIT AND IF ERROR 


if AZT_INIT () 
then 


REPORT ERROR 
DECODE STATUS 


begin 
ERRDF (10, MSG_14, RC25$ERR_RPT); 
if .RET_STATUS then DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
end 

else 


begin 
! CHECK FOR ECHOED INFORMATIONS AT STEP2 READ 
TEMP = .DATAI<8, B>; ! SAVE EXPECTED DATA 


if c. RC25_DATA [RCSA, RCSA_7_0) nequ - TEMP ) 
the ! IF ECHOED INFO DOES NOT 
"be in ! MATCH REPORT ERROR 


TEMP; 
pS = -RC25 DATA (RCSA. RCSA_7 ols 

E (RT_IP_ADDRESS) - 
ERROF’ ity mSG. 11, RCOSSERR_ RPT) 4" 


CKLOOP; 
RETRIES = TRUE; 
end; 


end; 
as nnd (FMT4, .RC25_DATA (RCSA, RCSA_PTN)); ! GIVE PORT TYPE NUMBER 


Se Se Se Ge Ge Ge GF GF GH GH Ge Ss Ge Ge GF SF Ge we GS Gs GH GH Ge GH GS Gs Gs GS GF GH Gs Gs GH GF GF GF Gs OF GF GS Ge Ge Ge Ge Ge Oe oe 68 Os os Os os Os OF os oe oF 
tw 
— 
~ 
~ 


tw 
~ 
J 
wo 
BP PADD SID WW WW WW WW ID I ID SII III AADAHAAANHS SHEEDHAADNO Ysa 


‘ 
! STEP 2 WRITE WITH A STEP 3 READ 


— 





eee eee te ee ep Aa 


cene ee. aren FR END TEST 
TEST SEC 


ZRCFBS 
vo3.0 


BGNSUB 
B_MASK = 3; 
DATA2 = con _AREA; 


if AZT_INIT () 
then 


begin 
ERRDF (12, MSG_14, RC25$ERR_RPT); 
if .RET_STATUS then DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
end 

else 


begin ; 
! CHECK FOR ECHOED VECTOR AND IE BIT 
TEMP = .DATA1<0O, 8>; 


“REDS DATA (RCSA, RCSA_7 os, 
“RT_TABLE [RT_IP_ADDRESS) - 
ERROF "(13, MSG_11, RC2S$ERR *ReT) 


CKLOOP; 
RETRIES = TRUE; 
end; 


end; 
, ENDSUB; 
! STEP 3 WRITE WITH STEP 4 READ 
& 
BGNSUB; 
B_MASK = 7; 
DATA3 = 0; 


if AZT_INIT () 
then 


begin 

ERADF (14, MSG_14, RC25$ERR_RPT); 
if .RET_STATUS then DECODE (); 
CKLOOP; 

RETRIES = TRUE; 

end; 


! PRINT MICRO CODE VERSION INFO 
PRINTF (FM76, .RC25_DATA (RCSA, RCSA_MODEL), 


Se Se Se SE Ge Se GF Se St GF GF GF GE Ge SF GS Ge GS Ge Gs GF GE Ge GS Ge Gt Ge Gs Ge GH Gs GF GH GE GH Ge Ge Ge GF Os GF OF GF Gt Ge OF Ge Gs OF OF os 6s Os 6s Os Os os 


DADDY SNS SSDNA DAD & & & PDD IW OW DW WO OW WOW IO IID SN I INOAHAAHOHN DS 


[— 


| (.RC25_DATA [RCSA, RCSA_7_0] nequ . TEMP 








SEQ 0223 
27-Mar-1985 1 Page 


27-Mar-1985 1 


1 Bli 
(AZ 


5:27:28 e186 y 
3:28:18 


579 28 
LCZRCFC JZRCFC3. B16;4 (8) 


7: VAX-11 
8: USER$1 


! MASK UPTO STEP3 READ 
COM AREA START ADDRESS 


DO INIT AND IF ERROR 


PRINT ERROR MESSAGE 
DECODE STATUS 


) 
! IF ECHOED INFO NOT CORRECT 


REPORT ERROR 


BRING UPTO STEP4 READ 
RING BASE HIGH ADDRESS 


INIT AZTEC 

IF ERROR 

THEN 

PRINT OUT ERROR MESSAGE 
! DECODE ERROR 


-RC25_DATA (RCSA, RCSA_U_CODE)); 









E2 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bliss-16 V4.0-579 = ty 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCIZRCFC3.B16;4 (8) 
4 ENDSUB; 
4 if (.RETRIES) then DO_RETRIES (); 
4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
; end; 
i ENDTST; 
.SBTTL $75 TEST SECTION 
005067 0000006 $75: CLR NUM. RETRIES 
032767 000001 0000006 BIT #1, SWP, TRACE 
001407 BEQ i$ 
012746 0000006 MOV #0BM9, -(SP) 
012746 000001 MOV #1,-(SP) 
010600 MOV SP RO 
104417 TRAP 
022626 CMP 2p)., (SP)-« 
026767 0000006 0000006 1s: CMP NUM. RETRIES, SWP.RETRIES 
101401 BLOS 23 
000207 RTS PC 
104402 2s: TRAP 2 
105067 0000006 CLRB  —«B. MASK 
004767 0000006 JSR PC,AZT. INIT 
006000 ROR RO 
103023 BCC S$ 
104455 TRAP 3-555 
ry .WORD 1 
"WORD MSG.14 
0000006 “WORD RC25$ERR.RPT 
032767 000001 0000006 BIT $1,RET. STATUS 
001402 BEQ : 
004767 0000006 JSR PC ,DECODE 
104465 3$: TRAP = 65 
006000 ROR RO 
103003 BCC 43 
162706 000006 SUB 6, SP 
000507 BR 9$ 
012767 000001 0000006 4s: MOV #1,RETRIES 
032767 002000 0000026 S$: BIT $2000, RC25.DATA+2 
001004 BNE 6$ 
032767 000400 0000026 BIT $400,RC25.DATA+2 
001042 BNE B$ 
112767 000002 0000006 6$: MOVB 42, P. MASK 
012767 0000006 0000006 MOV OFMT3,P1 
012767 000001 0000006 MOV #1,P2 
016700 0000006 MOV RC25. ADDR, RO 
062700 000002 ADD #2,R0 
010067 0000006 MOV RO.P4 
016767 000002G 0000006 MOV RC25.DATA+2,P5 
012767 000001 0000006 MOV #1,P6 
104455 TRAP = 55 
.WORD il 
"WORD MSG 


.14 
000000G WORD RC25$ERR.RPT 













Fe 


SEQ 0225 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 X-11 Bliss-16 p 30 
TEST SECTION 27-Mar-1985 13:28:18 USERS 1: [AZTEC, CzRcEe IZRCFCS, ee all 5 
104465 TRAP 3s «65 
000 RO 
103003 BCC 7$ 
162706 000006 SUB 06, SP 
000435 BR 
012767 000001 0000006 7$: MOV #1,RETRIES 
016767 000002G 0000006 8$: MOV RES. DATA+2, TEMP 
006267 0000006 ASR 
006267 000000G ASR rep 
006267 0000006 ASR TEMP 
006267 0000006 ASR TEMP 
006267 0000006 ASR TEMP 
006267 0000006 ASR TEMP 
042767 177740 0000006 BIC #177740, TEMP 
016746 0000006 MOV TEMP, -( SP) 
012746 0000006 MOV OFMTS, -(SP) 
012746 000002 MOV 02, -(SP) 
010600 MOV SP.RO 
104417 TRAP 7 
706 000006 9$: ADD 06, SP 
104467 TRAP 6? 
103635 BLO 23 
10$: TRAP 2 
112767 000001 0000006 MOVB = #1, BB. MASK 
016700 0000006 MOV RT. TABLE ,RO 
000002 MOV 2(RO), -(SP 
012746 000004 MOV 64, -(SP) 
0000006 JSR PC; BL$DIV 
010067 0000006 MOV RO, DATAL 
162767 040200 0000006 SUB #46200, DATAL 
004767 0000006 JSR PC,AZT. INIT 
000 ROR RO 
103023 BCC 34 
55 TRAP = 55 
12 .WORD 12 
"WORD SG.14 
0000006 “WORD RC25$ERR.RPT 
032767 000001 0000006 BIT #1,RET. STATUS 
001402 BEQ 1 
004767 0000006 JSR PC ,DECODE 
104465 11$: TRAP 65 
000 ROR RO 
103002 BCC 12$ 
024646 CMP -(SP),-(SP) 
000476 BR 
012767 000001 0000006 12$: MOV #1,RETRIES 
000456 BR 15$ 
005067 0000006 13s: CLR TEMP 
116767 000001G 0000006 MOVB DATAl+1,TEMP 
005000 CLR RO 
156700 0000026 __ BISB . RC25.DATA+2,R0 
020067 0000006 ~_ CMP RO, TEMP 
001443 BEQ 15 
112767 000002 0000006 MOVB  #2,P. MASK 
012767 0000006 0000006 MOV OFMT2,P1 


012767 000001 0000006 MOV #1,P2 











016767 
000 


016767 





CZRCFCO RC25 FR END TEST 
TEST SECTION 


0000006 0000006 


000001 0000006 
0000026 

177770 

000000G 

000002 

000010 


000003 000000G 
000090G 000000G 
000000G 


000001 000000G 
000000G 


000001 0000006 
000000G 
000000G 000000G 
000002G 
000000G 
000002 000000G 


000000G 000000G 
000001 0000006 
000000G 000000G 


a) 


16$: 


18$: 


19$: 


Sain al 
oe of 


Ge 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


TEMP ,P4 

RC25.DATA+2,RO 
ORT. TABLE, RO 
$2,RO 

RO, P6 

55 


MSG. 11 
RC2S$ERR.RPT 
65 

RO 

14$ 

oS ed »- (SP) 


#1,RETRIES 
RC25. -DATA+2,R0 


0 
#177770,R0 


43,8 .MASK 
@COM.AREA,DATA2 
seh eataeld 


19$ 

55 

14 

MSG.14 
RC2S$ERR.RPT 
#1,RET.STATUS 
PC ,DECODE 

65 


20$ 

#1,RETRIES 

20$ 

TEMP 

DATA1, TEMP 
RC25.DATA+2,RO 
RO, TEMP 

20$ 

#2,P MASK 


OFMT2,P1 
#1,P2 
TEMP ,P4 





VAX-11 Bliss-16 V4.0-57 
USER$1: (AZTEC. CZRCFCIZRCFC3. B16;4 


SP,* 


SEQ 0226 
. Pa 





31 
(8) 


2194 
2195 
2196 


2197 


He 


SEQ 0227 
P 32 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bliss-16 V4 age 
TEST SECTION 27-Mar-1985 13:28:18  USER$1: (AZTEC. CZRCECIZRCFCS, B16;4 (8) 
CLR RO ; 223 
0000026 BISB RC25.DATA+2,R0 * 
0000006 MOV RO,P5 
0000006 MOV Rt. TABLE ,RO i 2236 
000002 ADD #2,RO0 
000 he Fe 
; 2237 
.WORD 15 
“WORD M5G.11 
.WORD RC25$ERR.RPT 
TRAP «#65 
ROR 
BLO 20$ 
000001 0000006 MOV $1,RETRIES 
20$: ‘TRAP 67 
ROR RO 
BLO 17$ 
21s: TRAP 2 
000007 0000006 MOVB 07,8. MASK 
0000006 CLR DATA 
0000006 JSR PC, AZT. INIT 
ROR RO 
BCC 24$ 
TRAP = s55 
[WORD MSG.14 
“WORD RC25$ERR.RPT 
000001 0000006 IT a1 ,RET. STATUS 
0000006 JSR PC ,DECODE 
22s: TRAP 65 
ROR 
BCC 23$ 
000010 SUB #10,SP 
BR 25$ 
000001 0000006 23s: MOV - #1,RETRIES 
0000026 24$: MOV RC25.DATA+2, -(SP) 
177760 BIC #177760, (SP) 
0000026 HOV RC25. DATA+2,RO 
ASR RO 
ASR RO 
ASR RO 
177760 BIC #177760,RO 
MOV RO, -(S 
0000006 MOV OFMT6, -(SP) 
000003 MOV 03,-(5P) 
MOV SP;RO 
TRAP) =s_-17 
000010 25$: ADD #10,SP 
TRAP 67 
ROR RO 
BLO 21$ 
000001 0000006 BIT 1 ,RETRIES 
0000006 JSR PC,DO.RETRIES 


000000G 268: TST NUM, RETRIES 








I2 





ZRCFR3 CZRCFCO ofan FR END TEST 

v03.0 TEST SECTI 

001310 001402 

001312 000167 176514 

001316 000207 278: 
; Routine Size: 360 words, Routine Base: 

; Maximum stack depth per invocation: word 


000000 004767 176454 38 
000000 1$: 
000004 104466 


000006 906000 
000010 103773 : 
000012 000207 


; Routine Size: 6 words, — Routine Base: 
; Maximum stack depth per invocation: 2 word 


s 2274 1 !<BLF /PAGE > 


27-Mar-1985 
27-Mar-1985 


BEQ 27$ 
JMP 1$ 
RTS PC 
ACSCODE + 2364 


-SBTTL TS TEST SECTION 
JSR PC,$T5 
66 


TRAP 

OR RO 
BLO 1$ 
RTS PC 


AC$CODE + 3704 


15:2 
13:2 


1: 
8: 








:28 
18 


11 Bli 
USERSI: :(A 


9-16 


579 
7TEC. CZRCECIZRCECS. B16;4 — 





SEQ 0228 
P 33 





Je 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bli 579 oy ey 34 
V03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(A ree CZRCEC IZRCFCS. B16;4 (9 
; ee7sS 1 ’ 

| wes BGNTST; 

3 2e77 3 

F e278 3 Yee 

; 2279 : TEST @6 - PURGE AND POLL TEST 

; 2281 3 DESCRIPTION: 
; 2263 3 ‘ THIS TEST WILL PERFORM THE FIRST THREE STEPS OF THE INIT SEQUENCE. 
; 2284 3 ‘ WHEN THE HOST RESPONDS TO THE STEP 3 TRANSITION IT WILL WRITE A ONE 
; 2285 3 ‘ BIT TO BIT 15 OF THE SA REGISTER, THERBY REQUESTING THE EXECUTION OF 
> «2286 3 ' POL . THE HOST THEN WAITS FOR THE SA REGISTER 10 
; 2267 3 ‘ TRANSITION TO A ZERO VALUE. THE HOST THEN WRITES ZEROS T 
; 2288 3 ' REGISTER SIMULATING A “PURGE COMPLETED” HOST ACTION. THE HOST THEN 
; 2289 3 ' READS THE IP REGISTER TO SMULATE A “START POLLING” COMMAND FROM THE 
; 2290 3 ' HOST TO THE PORT. THE TEST IS COMPLETE WHEN THE CONTROLLER ANNOUNCES 
; 2291 3 THE TRANSITION TO STEP 4 IN THE SA REGISTER. 
; 2293 3 FAILURE TO PROPERLY COMPLETE THIS TEST WILL BE REPORTED. 
; wes 8 ‘ LOOP ON ERROR WILL RESTART THE TEST. 
; 22% 3 '. 
3 2297 3 
3 2298 : if .SWP_TRACE then PRINTF (0BM12); ! TEST 6 
; 2300 3 NUM_RETRIES = ZERO; 
; 2302 3 while (.NUM_RETRIES lequ .SWP_RETRIES) do 
8 2303 4 begin 
; 2304 4 TIP = 6; 
; 2305 4 B_MASK = 3; 
; 2306 4 DATAL = #0'100200' + .RT_TABLE (RT_VECTOR]/4; ! IE AND VECTOR ADDRESS 
; «2307 4 DATAD = RINGBA SE; ! RING BASE LOW ADDRESS 
; 2308 4 DATA3 = #0’ 100000’; ' PURGE AND POLL 
; 2310 4 if AZT_INIT () ! DO UPTO STEP 3 READ AND 
; gil 4 then ! CHECK FOR ERRORS 
; Bus begin ‘ TF ERRORS THEN 
: 2313 3 ERRDF (15, MSG_14, RC25$ERR_RPT); | REPORT THEM 
; 2315 2 if .RET_STATUS then DECODE (); ! DECODE STATUS 
; 2317 5 CKLOOP; 
; 2318 5 RETRIES = TRUE; 
3 2319 5 end 
; 2320 4 else 
3 2321 5 begin 
; 2322 : WRT_RC25 (RCSA, .DATA3); ! WRITE PURGE AND POLL 
; 2324 «5 while G jhces ADDR [RCSA, RC_ALL] nequ ZERO) do 
; o3¢9 ; (16); : WAT? UNTIL SA=0 
; 2327 § WRT_RC25 (RCSA, phat se) ); ! WRITE ALL ZERO'S TO SA 
; 2328 5 DATA] = .RC25_ADDR [RCIP, RC_ALL); ' READ THE IP REGISTER 
; 2329 5 DATA1 = so’ io", ! INIT THE LOOP COUNT 
: 2330 . 


while (.DATA1 nequ ZERO) do 





$5 K2 
SEQ 0230 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bliss-1 age 3 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CzRcee IZRCFCS. B16;4 (9) 
:; 2332 6 begin 

; 2333 6 delay (333); 

; 2334 6 . 

: Sse : if .I_AM_NEX eqlu ALL_ONES then exitloop; 

3 

: 2337 6 DATAL = .DATAL - 1; 

; 2338 5 end; 

s a9 3 ; 

; 26 3 if .I_AM_NEX eqlu ALL_ONES 

; e341 5 then 

>; e342 6 pegin 

3 Sees : RC2S_DATA (RCSA, RC_ALL) = .RC25_ADDR [RCSA, RC_ALL]); 
3 2345 6 if ,.RC25_DATA (RCSA, RCSA_ER) ' IF PORT FATAL ERROR 
:; 2346 6 then 

3 2347 7 bee's ! THEN REPORT IT. 
; 2348 7 RET_STATUS = PFE_CODE; 

3 2349 7 Pl = FMT3 

; 2350 7 P2 = 

; 3351 7 P4 = (.RC2S_ADOR) + 2; 

; 2352 7 PS = .RC25_ BATA (RCSA, RC_ALL]; 

; 2353 7 P6 = id 3 

; 2354 7 P_MASK = 2; 

; e355 7 ERRDE (16, MSG_14, RC25$ERR_RPT); 

s aa 7 DECODE (); 

;- gor F CKLOOP; 

» 28 Ff RETRIES = TRUE; 

; 344 $ end; 

3 2361 7 if (,.RC25_DATA [RCSA, RCSA_STEP]) nequ #b'1000' ) ' CHECK FOR STEP 4 COMPLETE 
; 2362 6 then 

; 2363 7 begin 

H 2364 7 Pl = FMT3 

H 2365 7 P2 = ADAPT 

; 2366 7 P4 = (.RC25_ADDR) «+ 2; 

; 2367 7 P5 = <RC25. DATA (RCSA, RC_ALL); 

H 2368 7 = e hgh, - § MASK = STEP 4 

8 2369 7 ° 

; 2370 7 ERROF a7, MSG_14, RC25$ERR_RPT); 

; 2371 7 CKL 

; e372 7 RETRIES = TRUE; 

s; 2373 6 end; 

$ 2374 6 

; 2375 6 end 

s 2376 5 else 

; 2377 6 begin 

; 2378 6 RE Tate = CTO_CODE; 

3 2379 6 RETRIE TRUE; 

; 2380 6 CAROL” us. MSG_9, 0); 

>; 23861 6 DECODE ( 

; 2382 5 end; 

; 23863 5 

3 2384 4 end; 

; 2385 4 

$ eet : if ( RETRIES) then DO_RETRIES (); 

; 2388 4 if (.NUM_RETRIES eaqlu ZERO) then exitloop; 


[— 











| Me SEQ 0231 | 


CZRCFCO RC2S FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bli 0-57 age 36 
TEST SECTI 27-Mar-1985 13:28:18 USER$1:(AZ TEC, Me oRCEC IZRCFCS. B16;4 (9) 
end; 
ENDTST; 
.SBTTL $16 TEST SECTION 
$76: MOV Ri, -(SP) : 2273 
000010 SUB 010, SP 
000001 0000006 grt 01, SWP. TRACE : 2298 
MOV soeni2 (SP) 
000001 MOV ais) 
MOV ; SP,e 
TRAP 17 
CMe (SP). = (SP) 
0000006 1s: CLR NUM. RETRIES : 2300 
0000006 0000006 23: ~~ NUM -RETRIES, SWP.RETRIES : 2302 
000674 ure 253 
000006 33 MOV 06, TIP ; 
000003 0000006 MOVB 63.8. MASK : 2305 
0000006 MOV RT. TABLE ,RO ; 
000002 MOV 2(RO), -(SP) 
000004 MOV 04,-(SP) 
0000006 JSR PC.BLSDIV 
MOV RO, DATA 
077600 0000006 SUB €77600, DATA 
0000006 MOV ORINGBASE , DATA2 : 2307 
100000 0000006 HOV @- 100000, DATA : 2308 
JSR PC, AZT. INIT ; 2310 
ROR 
acc 
TRAP $5 ; 2313 
.WORD 17 : 
“WORD MSG.14 
.WORD RC25SERR.RPT 
000001 0000006 gr! 01.RET. STATUS : 2315 
0000006 JSR PC ,DECODE 
4s: TRAP «65 
ROR RO 
Bcc S$ 
CMP (SP)+,(SP)- 
000542 JMP $ 
000001 0000006 5$: MOV 01 ,RETRIES ; 2318 
000474 Joe 22% ; 2310 
6$: MOV DATA3,R1 ; *,RCM.REG 2322 
0000006 MOV RC25. ADDR, RO 
000002 MOV R1,2(RO) ; RCM.REG,« 
0000006 7$: MOV RC25. ADDR ,RO ; 2324 
000002 000004 MoV 2cRO),4( SP) ; @,RC.REG 
000012 MOV 012,R1 3 ©, $$TMP2 2325 
83: BEQ 7$ 
0000006 MOV L$DLY,RO ; ¢,$$TMP) 
BEQ 10$ 

















CZRCFCO RC2S FR END TEST 


TEST SECTION 

000012 93: 
108: 
11$: 

000000G 

000002 

000006 

000010 000000G 128 

000515 ; 
138: 

000000G 

000012 148 
158: 

0000006 177777 163: 

000000G 

000000G 177777 178: 

000002 000010 

000010 0000026 

000021 000000G 

000090G 000000G 

000001 000000G 

000000G 

000002 

000000G 

000002G 000000G 

000004 000000G 

000002 000000G 

000000G 

000001 000000G ot 

103777 ; 


seer tes 
10(SP),RC25.DATA-2 


19 
621,RET. STATUS 
oFMT3, Pi 


01,P2 

ozs ADDR , RO 
Se oe 

meas. DATA+2,P5 
$2: ‘» .MASK 

55 


MSG.14 

RC25$SERR RPT 

-DECODE 

RO 

183 

(SP )+,(SP)- 
S$ 

01 ,RETRIES 


RC25.DATA+2,R0 
4 og HAE 


22% 

OFMT3,P) 
01,P2 

RC25. ADDR ,RO 


SEQ 0232 

VAX-11 Bl:ise-16 V4 Page 37 
USER$1: (AZTEC. CoRCEC IZRCFCS. B16;4 (9) 
3; $$TMP 
3 $STMP) 
3 $$TMP2 
; RCM.REG 2327 
s RC25.AD0R ,RC.REG 2328 
533 
; 6, $$TMP2 2333 
3 ©, $STMP) 
3 $sTMP 
3 $$TMP)] 
: $$TMP2 
3 2335 
3 2337 
é 2331 
3 2340 
3 2343 
: *,RC.REG 
H RC.REG,«@ 
3 2345 
: 2348 
$ 2349 
3 2350 
: 2351 
3 23 
; 2353 
3 23 
3 2355 
3 2356 
3 2358 
; 2361 
; 2364 
; . 2365 

’ 2366 





: 2393 3 


; Routine Size: , 
; Mexieum steck depth per invocet ion: 


; Routine Size: 
; Mexia steck depth per invocet on: 





CZRCFCO RC25 FR END TEST 
TEST SECTION 


000010 0000006 
000002 


177070 
000010 


248 words, 


177014 


6 words, 


1 <BLF /PAGE> 


RTS 


Routine Bese: ACSCODE - 
9 words 


- SBT 


Routine Bese: ACICODE - 
2 words 


Ne 


27-Mer-1985 15:2 
27-Mer-1985 13:2 


7; 
8: 
02, RO 

RO 

aces. DATA+2,P5 

010, 6 

oo, oF MASK 

55 
21 
MSG. 14 
RC25$ERR RPT 
65 

RO 

208 
(SP)+,(SP)- 
258 

61, RETRIES 


BR AOSRAE 

wr Mui 

me « . 
oO 


e3 
2S 
a 
2 


mn 
SS 


d+, (SP) 


Pe ry 
ee 


“ue 


Té TEST SECTION 
PC .816 


726 
18 


VAX-11 
USER$1: 


lise-16 
AZTEC CZRCEC IZRCFC3.616;4 








SEQ 0233 


2390 


PYUUADARACUNUNSUVUVVUVIUVUIU & Pa aaa aLSS aWUWUWWWWWUUWUIWUUUIUWUWUWWWUH 





CZRCFCO a FR END TEST 
TEST SECTI 


BGNTST; 


tee 
! TEST @7 - SMALL RING BUFFER INIT TEST 
DESCRIPTION: 


START OF THIS TEST. 


if .SWP_TRACE then PRINTF (D0BM13); 
NUM_RETRIES = ZERO; : 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 


DATA2 = RING 8 (0); 


DATA3 
DATAA<O y > = 

8 fo} . ati _ONES; 
RING B = ALL_ONES; 


if AZP_INIT () 
then 


begin 
ERADF (19, MSG_14, RC2S$ERR_RPT); 
if .RET_STATUS then DECODE (); 


CKLOOP ; 
RETRIES = TRUE; 
end 
else 

begin 


ye -RING_B [0] nequ 0 and .RING_B [1] nequ 0 


peor (20. MSG.10. 0); 


CKL 3 
RETRIES = TRUE; 
end; 


end; 





27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


THE AZTEC WILL BE partie 226? va x Piers AND USING THE 
SMALLEST RING BUFFER. THIS W wt BE T ME THAT THE 
INITIALIZATION SEQUENCE IS CAR RIED 
WITH THE SMALLEST RING BUFFER MINIMIZES THE HOST MEM 
WHICH THE AZTEC CONTROLLER MUST BE ABLE TO COMMUNICATE. 


FAILURE TO PROPERLY INITIATETHE AZTEC WILL BE REPORTED. 
IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM THE 


TI 
OUT TO COMPL 3 fe 












B3 


SE 
6 V4.0-579 voy 
ZTEC.CZRCFC JZRCFC3.816;4 (10) 


VAX-11 Bliss-1 


USER$1:(A 


FIRST 
INITIALIZING 
Y AREA WITH 


? TEST 7 


! SELECT ALL_STEPS 
! STEP 1 WRITE WITH MIN. RING SIZES 
! SET UP RING BASE ADDRESS 


! INIT RING_B (0) wo (1) 
' WITH ALL ONES (-1) 
; DO INIT STEPS 


' IF ERROR THEN 
! THEN REPORT THE ERROR 


! DECODE RETURN STATUS 


! VER.BO 


! TEST THAT THE RC25 CLEARED 
! RING BUFFERS 

! IF NOT THEN ERROR 
! AND REPORT IT 






C3 





SEQ _0235 
P 40 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0-579 age 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFC)ZRCFC3.816;4 © (10) 
2451 4 
2452 4 if (.RETRIES) then DO_RETRIES (); 
ate : if (.NUM_RETRIES eqlu ZERO) then exitloop; 
2456 3 end; 
2457 3 
2458 3 return; 
2459 1 ENDTST; 
.SBTTL $17 TEST SECTION 
000000 032767 000001 0000006 $17: BIT 01,SWP. TRACE : 2414 
000006 001407 BEQ 
000010 012746 0000006 MOV 608M13, -( SP) 
000014 012746 000001 MOV #1,-(SP) 
000020 010600 MOV SP RO ; SP,« 
000022 104417 TRAP 17 
022626 CMP (SP)+,(SP)- 
000026 005067 0000006 1$: CLR NUM. RETRIES 2416 
000032 026767 0000006 0000006 23: CMP NUM.RETRIES, SWP.RETRIES ; 2418 
000040 101105 BHI 7$ 
000042 012767 000007 0000006 MOV 07, TIP ; 
000050 112767 000017 000000G MOVB 017,8.MASK ; 
000056 012767 100200 0000006 MOV @-77600,DATAL ; 
012767 000100’ 000000G MOV ORING.B,DATA2 ; 
000072 005067 0000006 CLR DATA3 ; 
000076 152767 000001 0000006 BI1SB 1,DATA4 : 
000104 012767 177777 000100’ MOV @-1,RING.B ; 
000112 012767 177777 000102' MOV 0-1, RING.B+2 ; 
000120 004767 0000006 JSR PC,AZP. INIT ; 
000124 006000 ROR RO 
000126 103021 BCC 4$ 
000130 104455 TRAP 3s 5S 
000132 000023 .WORD 23 
000134 0000006 “WORD SG.14 
000136 0000006 “WORD RC2S5$ERR.RPT 
000140 032767 000001 0000006 BIT 01,RET. STATUS 
000146 001402 BEQ 
000150 004767 0000006 JSR PC ,DECODE 
000154 104465 3$: TRAP 3s «6S 
000156 006000 ROR RO 
160 103435 BLO 7$ 
162 012767 000001 0000006 MOV #1,RETRIES 
000170 0004. BR S$ 
172 005767 000100’ 4s: TST RING.B 
176 001415 BEQ $ 
200 005767 000102' TST RING.B+2 
204 001412 BEQ S$ 
206 104455 TRAP 3 s«45S 
210 24 .WORD 24 
212 “WORD MSG.10 
214 "WORD 0 
216 104465 TRAPS s«6S 
220 006000 ROR RO 
222 103414 BLO 7$ 
224 012767 000001 0000006 MOV #1,RETRIES 





D3 













SEQ 0236 
zneres ZRCF CO RGes FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 Page 41 
v03.0 EST SECTION 27-Mar-1985 13:28:18 USER$1:(AZTEC.CZRCFC)ZRCFC3.616;4 (10) 
000232 032767 000001 000000G S$: BIT #1,RETRIES ; 2452 
000240 001402 BEQ $ 
000242 004767 000000G JSR PC,D0.RETRIES 
000246 005767 000000G 6$: TST NUM. RETRIES ; 2454 
000252 001267 BNE es 
000254 000207 7$: RTS PC 2392 
3; Routine Size: 87 words, Routine Base: ACSCODE + 4714 


; Maximum steck depth per invocation: 4 words 


-SBTTL 17 TEST SECTION 


000000 004767 177516 T7:: 

000000 1$: JSR PC, $17 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 

; Routine Size: 6 words, Routine Base: ACSCODE + 5172 


; Maximum stack depth per invocation: 2 words 


; 2460 1 !<BLF /PAGE> 


















E3 





SEQ 0237 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4 ?P 4 
vo3.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CORCEC IERCFCS. B16;4 aT 
; 2461 1 H ~ 

; 2462 3 BGNTST; 

>; 2463 3 

; 2464 3 fee 

3 ast : : TEST #8 - LARGE RING BUFFER INIT TEST 

: md : : DESCRIPTION: 

; ° 

:; 2469 3 ! THE INIT SEQUENCE IS EXECUTED WITHOUT INTERRUPTS WITH A RING BUFFER 

:; 2470 3 ’ LARGE ENOUGH TO COVER THE NORMAL HOST COMMUNCIATIONS AREA tiny AND 

3 S73 ; : BUFFER SPACE ( A 5 IN MESSAGE LENGTH AND A 5 IN COMMAND LENGTH). 

3 ! 

>; 2473 3 ! A FAILURE TO COMLETE THE INITIALIZATION SEQUENCE WITHOUT ERROR WILL BE 

3 7s : : REPORTED. 

>; 247% 3 : IF THE OPERATOR “3 Tala LOOP ON ERROR, LOOPING WILL BE TO THE 

; 2477 3 ! BEGINNING OF THIS T 

; 2478 3 !-- 

; 2479 3 

: ey : if .SWP_TRACE then PRINTF (DBM14); ! TEST 8 

; 2482 3 NUM_RETRIES = ZERO; 

; 2483 3 2 

; 2484 3 while (.NUM_RETRIES lequ .SWP_RETRIES) do 

3 2485 4 begin 

>; 2486 4 TIP = 8; 

; 2487 4 B_MASK = , + ! SET MASK BIT FOR COMPLETE INIT. 
; 2488 4 DATA1<15, 1> = TRUE; ! SET BIT 15 FOR STEP-1 WRITE 

>; 2489 4 DATA1<14, 1> = 0; ' NO DIAGNOSTIC 

; 2490 4 DATA1<11, 3> = SND_SIZ; ' SET UP 16 COMMAND RINGS LENGTH 

; 2491 4 DATA1<8, 3> = REC_SIZ; ! SET UP 16 reseone RINGS LENGTH 
; 2492 4 DATA1<7, 1> = 0; ' DISABLE INTERRUPT 

> 2493 4 DATA1<O, 7> = 0; ' LOAD INTERRUPT VECTOR ADDRESS 

>; 2494 4 TA2 = COM_AREA; ' LOAD COMMUNICA TIONS AREA ADDRESS 
; 2495 4 DATA3 = ZERO; ' HI-ORDER ADOR 

> 2496 4 DATA4 = #0'177403'; ! "LAST FAIL” PArKET RESPONSE BIT SET 
3 dd : tINITIALIZE COM_AREA WITH ALL _ONES PRIOR TO INIT 

; 2499 4 incru I from 0 to RING_SIZE - 1 do 

8 2500 4 

3 2501 4 incru J from 0 to 1 do 

8 cane : COM_AREA [. 1° .J, WORD_REF]) = ALL_ONES; 

; 2504 4 if AZP_INIT () ! DO STEP INIT AND CHECK FOR ERROR 
3 2505 4 then H 

; 2506 5 begin ' IF ERRORS THEN 

; F344 : ERRDF (21, MSG_14, RC25$ERR_RPT); ! REPORT ERROR 

$ 344 2 if .RET_STATUS then DECODE (); ! DECODE STATUS 

3 

i. a 2 CKLOOP; 

; 2512 5 RETRIES = TRUE; 

3 2513 5 end 

; 2514 4 else 

: 25 & begin ! VER.BO 

$ 2516 5 : 

s «£ai7 $5 incru I from 0 to RING_SIZE - 1 do ! TEST RING AREA FOR ZEROES 


— 





rs 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0 mig hy 
TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CoRCEC IZRCFCS, B16;4 (11) 
2518 5 ‘ 
$283 2 incru J from 0 to 1 do 
e521 5 if .COM_AREA [.I, .J, WORD_REF]) nequ 0 ! IF RING AREA IS NOT CLEAR 
2Se2 5 then | ! 
2e5e3 6 begin ' REPORT ERROR 
2524 6 ERRDF (22, MSG_10, 0); ! 
2525 6 CKL 3 
2526 6 RETRIES = TRUE; 
2527 5 end; 
2528 5 
2529 4 end; 
2530 4 : 
S33} 3 if (.RETRIES) then DO_RETRIES (); 
2533 ; if (.NUM_RETRIES eqlu ZERO) then exitloop; 
2535 : end; 
2537 3 return; 
2538 1 ENDTST; 
.SBTTL $T8 TEST SECTION 
004167 000000G $78: JSR R1, $SAVE2 F 2459 
032767 000001 000000G BIT 01,SWP. TRACE ; 2480 
001407 BEQ 
012746 0000006 MOV @0BM14, -(SP) 
012746 000001 MOV #1,-(SP) 
010600 MOV SP,RO ; SP,« 
104417 TRAP 17 
022626 CMP (SP)-+ od 
005067 0000006 1$: CLR NUM. RETRIES ; 2482 
026767 000000G 000000G 2s: CMP NUM.RETRIES,SWP.RETRIES ; 2484 
101133 BHI 12$ . 
012767 000010 000000G MOV #10,TIP ; 2486 
112767 000017 000000G MOVB 617,8.MASK 3 2487 
012767 122000 000000G MOV #122000, DATA1 ; 2493 
012767 000000G 000000G MOV #COM.AREA,DATA2 ; 24 
005067 000000G CLR DATA3 ; 2495 
012767 177403 000000G MOV 6-375 ,DATA4 ; 2496 
005001 CLR Ri ee 2499 
005002 3$: CLR Re ; J 2501 
010100 4$: MOV R1,RO ; I,* 2502 
006300 ASL RO 
060200 ADD R2,RO J 
006300 ASL RO 
012760 177777 000000G MOV #-1,COM. AREA(RO) 
005202 INC R2 
020227 000001 CMP R2,@1 
101765 BLOS 4$ 
005201 INC Ri 
020127 000037 CMP R1,037 
101760 BLOS 3$ 
004767 000000G JSR PC,AZP.INIT 
ROR RO 


006000 
103021 BCC 6$ 











CZRCFCO RC25 FR END TEST 
03.0 TEST SECTION 


104465 5$: 
006000 


005001 6$: 
005002 Se 


9$: 


; Routine Size: 111 words, . 
; Maximum stack depth per invocation: 


1$: 


s Routine Size: 6 words, 
; Maximum steck depth per invocation: 


0000006 10$: 


0000006 11$: 
000207 12$: 


Routine Base: 
words 


177436 T8:: 


Routine Base: 
2 words 


RTS 


AC$CODE + 5206 


ACSCODE + 5544 











G3 


27-Mar-1985 15:27:28 X-11 B1i 57 ge 
27-Mar-1985 13:28:18 ERS: [AZTEC.CZRCFC IZRCFC3.B16;4 (11) 


55 F 2507 
MSG.14 
RC25$ERR.RPT 
#1,RET.STATUS 
PC ,DECODE 

65 

RO 

12$ 
01,RETRIES 
10$ 

R1 

R2 

R1,RO 

RO 

R2,RO 

RO 

COM. AREACRO) 





2509 


$ 
1,RETRIES 
Re 


R2,@1 
8$ 
R 


1 
| Stal 
#1,RETRIES 
11$ 
PC,DO.RETRIES 
NUM. RETRIES 


PC 


T8 TEST SECTION 
PC, $18 
6 


ZRCFB3 
v03.0 


2539 1 





CZRCFCO RC2S FR END TEST 
TEST SECTION 


!<BLF /PAGE> 










H3 


27-Mar-1985 15:27:28 vecai P45ee- 18 V4.0 


579 SEQ 0240 
27-Mar-1985 13:28:18 USER$1:(AZTEC.CZRCFCJZRCFC3.616;4 — 


P 45 
of 011) 


13 





ZRCFRS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX- 11 Bliss-16 V4.0-579 _ wey 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCECIZRCFCS. B16;4 0812) 
; 2540 1 ' 

; 2541 3 BGNTST; 

; e542 3 

; 2543 3 tee 

; Sats : ! TEST #9 - “DIAGNOSTIC MACHINE” CODE DOWN LINE LOAD TEST 

3 

3 Saas H DESCRIPTION: 

3 

; 2548 3 ' THIS Mn tnt MACHINE” PROGRAM WILL ATTEMPT TO TRANSFER A BLOCK 

>; 249 3 ' OF DATA FROM HOST MEMORY TO AN AREA IN THE CONTROLLER AND THEN 

3 Seay ; OranINe THE TRANSFERED DATA. 

3 

: foe 2 ‘ IF THE TRANSFERED DATA NOT COMPARE CORRECTLY, THEN THE ERROR WILL 

s @53 38 : BE REPORTED. THIS TEST ALSO REPORTS ERRORS IF ANY OF THE ROUTINES 

3 Ses : USED RETURNED FAILURE CODE. 

3 

‘a 3 : IF THE OPERATOR HAS aati LOOP ON ERROR, LOOPING WILL BE FROM 

; 2557 3 ' THE START OF THIS TEST 

>; 2558 3 i. 

; 2559 3 

; 2560 3 abel 

>; 2561 3 BLOCK1; 

: 2562 3 4 

3 case : if .SWP_TRACE then PRINTF (DBM15); ! TEST 9 

3 at : NUM_RETRIES = ZERO; 

: goer fs while (.NUM_RETRIES lequ .SWP_RETRIES) do 

; 2568 4 begin 

; 2569 4 ; 

; 2570 4 if AZTEC_READY () ! GET AZTEC READY 

; e571 4 then 

3 2572 5 poesia 

3 275 3 ERRDF (23, AZT_READY_ERR, 0); ' IF ERROR REPORT ERROR 

s 2's 5 if .RET_STATUS then DECODE (); 

; 2576 5 

.> ov. CKLOOP ; 

; e578 5 RETRIES = TRUE; 

; 2579 5 end 

; 2580 4 else 

; 2581 4 BLOCKi : 

; 2582 5 begin 

; 2583 : TEMP = ,FREE_MEM_ADDR; ! SAVE FREE MEMORY STARTING ADDR. 
: wes F incru COUNT from 0 to 1023 do ' FILL NEXT 1024 LOC. WITH DATAS 
; e 5 ! VER.BO LIMIT CHANGED TO 1023 

$ 2587 6 bonis H 

s 2588 6 -TEMP = #0'125252'; ! WRITE DATA 0'125252' INTO MEMORY 
; 2589 6 TEMP = TEMP « 2; ! INCREMENT THE POINTER BY 2 

3 25 5 end; 

3 2591 5 

>; 2592 5 CMD_REF = 3; ! SET COMMAND REFERENCE #3 

Fy 2593 5 BUF -BESCRPTR = DM_09; ! DM-PROGRAM STARTING ADDRESS 

; Sees : BYTE_COUNT = 9342; ' TOTAL DM PROGRAM LENGTH BYTE COUNTS 
s 259% 5 if EX_SUP_PRG () ! ISSUE AN “EXECUTE SUPPLIED PRG” CMD 





[— 


Se SF SF SO Se SF SE GF Gs SF SF GE SF GF Gt GF GF GF Gt GF GF Ge Gs GF GF GF Gs SF GS GF GF GF SE Se H) GF GS Gs OF OF Oe OF OF Gs Ge as GF oe Gs OF OF os Os Os Os 4s oF 


— 


EB BDA D DDD SSID DD DD DD DA AAA MID DDH HAD HH ANNAN UIA AAP AAHOU 





CZRCFCO RC2S5 FR END TEST 


SECTION 
then 
begin 
ERAOF (24, EXE_SUP_ERR, 0); 
if .RET_STATUS then DECODE (); 
RETRIES = TRUE; 
leave BLOCK1; 
end: 
H.SADD * FREE EM. ADDR: 
BUF “LENGTH = 1024; 
CMD~R 
BUF DESCRPTA = = H_SADD; 
if SEND_DATA () 
then 


begin 
ERMOF (25, SND_DATA_ERR, 0); 
if .RET_STATUS then DECODE (); 
CKLOOP; 
RETRIES = TRUE; 
leave BLOCK1; 
end; 
CMD_REF = 5; 
BUF ~DESCRPTR = TIP; 
BYTE_COUNT = 02; 


if REC_DATA () 
then 


begin 

ERAOF (26, RE_DATA_ERR, 0); 

if ,RET_STATUS then DECODE (); 
CKLOOP; 

RETRIES = TRUE; 

leave BLOCK1; 

end; 


if .TIP nequ #0'104' 
then 


begin 
ERADF (27, DMC_ERR, 0); 


CKL 3 
RETRIES = TRUE; 
end; 


end; 
if (.RETRIES) then DO_RETRIES (); 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 















J3 


SEQ 0242 
P a7 


VAX-11 Bli 579 age 
tec. CORCEC JZRCFC3. B16;4 ~ (12) 


USER$1:[AZ 
STATUS BIT INDICATES ERROR 
THEN 


VER .B0 


LO BYTE FREE HOST MEMORY ADDRESS 


HIGH BYTE FREE MEMORY ADDRESS 
TOTAL FREE HOST I 
OMMAND REFERENC 

DESCRIPTOR 


ADDRESS 
TOTAL BYTES TO BE TRANSFER 


ISSUE SEND DATA COMMAND 
Uae BIT INDICATES ERROR 


VER .B0 


CLEAN THE BUFFER 
SET BYTE COUNTS = 2 


SENT A RECEIVE DATA COMMAND 
Mahia BIT INDICATES ERROR 


VER .BO 
IS REMOTE PROGRAM SENT DONE FLAG - 
TO THE HOST 


NO, THEN 
REPORT ERROR 


-—_—_——— 
Ks 


SEQ 0243 
ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4,0-57 Page 48 
v03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCJZRCFC3.616;4 (12) 
4 
4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
3 end; 
z 
3 return; 
i ENOTST; 
.SBTTL $79 TEST SECTION 
032767 000001 0000006 $19: BIT 01, SWP. TRACE : 2563 
001407 BEQ t 
012746 0000006 MOV @08M15, -(SP) 
012746 000001 MOV #1, -(SP) 
10600 MOV SP,RO ; SP,« 
104417 TRAP 3-17 
022626 CMP tgp). (SP). 
005067 0000006 1$: CLR NUM. RETRIES : 2565 
026767 000000G 0000006 28: CMP NUM.RETRIES, SWP.RETRIES ; 2567 
101401 BLOS 3% 
000207 RTS PC 
004767 0000006 3$: JSR PC, AZTEC. READY : 2570 
006000 ROR RO 
103022 BCC 6$ 
104455 TRAP 3s 55 ; 2573 
000027 .WORD 27 
"WORD AZT.READY.ERR 
000000 “WORD 
032767 000001 0000006 617 01,RET. STAT’ ; 2575 
001402 BEQ 
004767 0000006 JSR PC ,DECODE 
104465 4$: TRAP 65 
006000 ROR RO 
103001 BHIS 5$ 
000207 RTS PC 
012767 000001 0000006 S$: MOV #1,RETRIES ; 2578 
000576 BR ; 2570 
016767 0000006 0000006 6$: MOV FREE .MEM. ADDR, TEMP ; 2583 
005000 CLR ; COUNT 3585 
012777 125252 0000006 7$: MOV #-52526, aTEMP ; 2588 
062767 000002 0000006 ADD 62, TEMP : 2589 
00 INC RO ; COUNT 2585 
020027 001777 CMP RO, 01777 ; COUNT,« 
101766 BLOS 7 
012767 000003 0000006 MOV #3, CMD. REF : 2592 
012767 0000006 0000006 MOV 00M. 09. BUF .DESCRPTR ‘ 2593 
012767 000272 0000006 MOV 6272 ,BYTE. COUNT ; 2594 
004767 0000006 JSR C. EX, SUP. PRG ; 2596 
103021 BCC ry 
104455 TRAP = §S 
000030 .WORD 30 
0000006 "WORD EXE.SUP.ERR 
000000 . “WORD 
032767 000001 0000006 BIT 01,RET. STATUS 
001402 BEQ 


8$ 
004767 0000006 JSR PC ,DECODE 














EST SECTI 


CZRCFCO RC2S FR END TEST 
TEST ON 


9$: 


10$: 


12$: 


13%: 


14$; 


27-Mer - 1985 
27-Mar-1985 
65 
RO 
16$ 
@1,RETRIES 


14 
ty F MEM. ADOR ,H.SADD 


#2000 BUF .LENGTH 
04, 


oH. SADD, BUF .DESCRPTR 
COUNT 


06 BYTE. 
at SEND. DATA 


iis 
5S 


31 

SND .DATA.ERR 
oo 

PC ..DECODE 

65 

RO 

16$ 

+ | eatin 
05, CMD. REF 
eTiP, OF DESCRPTR 
02,BYTE.COUNT 

“ee: DATA 


13s 
55 


32 

RE .DATA.ERR 
01,RET.STATUS 
l2$ 

PC .DECODE 
65 

RO 

16$ 
@1,RETRIES 
14$ 

TIP, @104 
14% 

55 

33 

DMC ..ERR 

0 

65 

RO 

16$ 
01,RETRIES 
01,RETRIES 
15$ 
PC,D0.RETRIES 





SEQ 0244 | 
X-11 BLi - 


98-16 V4.0-579 Page 49 
USERSI: TA ZTEC. CZRCFC IZRCFC3.616;4 (12) 


°o 


3 2648 
3 2653 


3: Routine Size: 
3; Meximum steck 


000000 
000000 
000004 
000006 
000010 
000012 


: Routine Size: 
3: Meximum steck 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Gs Ge Ge Ge GE Ge Ge Ge Gs Ge Ge Gs Ge Gs Ge Ge Ge Ge Ge Gs Ge Gs Ge oe 


— 


004767 
104466 
006000 
103773 
000207 


VU & & & & SUUUUUUIUIUI IU OI td dt td Ut Ud dd 





M3 


RCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 
Fs SECTION 27-Mer-1985 13:28:18 USER$1: (AZTEC. CZRCFC JZRCFC3.816;4 
000000G 158: TST NUM RETRIES $ 
BEQ 16% 
177270 JMP es 
168: RTS PC ; 
178 words, Routine Bese: ACSCODE + 5560 


depth per invocet ion: 4 words 


-SBTTL 19 TEST SECTION 


177230 19:: 
1$: JSR PC,$T9 : 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 
6 words, Routine Bese: ACSCODE - 6324 


depth per invocation: 2 words 


BGNTST; 
fee 
TEST @10 - NONEXISTENT MEMORY TEST 
DESCRIPTION: 
THIS “DIAGNOSTIC MACHINE " PROGRAM WILL ATTEMPT TO READ THE FIRST 
ADDRESS OF THE 1/0 PAGE OF THE HOST ce. THIS LOCATION IS RESERVED 
FOR DIAGNOSTICS AND A NXM SHOULD OCCUR 


‘ 
$ 
: 
‘ 
‘ 
' 
‘ IF THE CONTROLLER DOES NOT SEE THE NYM, THERE WILL BE A FRU CALLOUT 
‘ OF THE ADAPTER CARD. 

$ 

: 

: 

Bs 


IF THE OPERATOR 7 SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM 
THE START OF THIS TEST. 


1h coc, ! VER.BO 
if .SWP_TRACE then PRINTF (DBM16); ! TEST 10 


NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 


r58'° = 0; ' INIT TIP 
if AZTEC_READY () ! GET AZTEC READY FOR OPERATION 
then - 

begin 

ERRDF (28, AZT_READY_ERR, 0); : 





0 Cees 50 
9912) 
2655 


2538 


2659 








ae ok os N3 


end; 


SEQ 0246 

ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28  VAX-11 Sliee-16 p 
v03.0 TEST SECTION 27-Mar-1985 13:28:18  USERS1: (AZTEC -CZRCFCIZRCFC3,016,4 435 
3 2695 5 
; 36% 5 if .RET_STATUS then DECODE (); 
3 2697 5 
; 3698 5 CKLOOP 
; 3699 § RETRIES * TRUE; 
; 3700 § end 
: 2701 4 else 
; 3702 4 BLOCKI : 
| Sros § so even.eo wet to «08 SET INT. VECTOR ADDR. 7 

. 4 
: 2105 § —HVER‘80 SETVEC (VEE a0, wont, PRio4 ‘ae Joc ‘con, spre 
Fy ms H Vv 
; 2707 § 'VER.BO WRT_RC2S (RCSA, ONE); ' ROUTINE ADOR. Int. PRIORITY 
; 2708 § CHO REF = 3 + COMMAND REFERENCE 
; 3709 § BUF DESCRPTR = DM_10, i DMCOOE STARTING ADDRESS 
; $730 : BYTE_COUNT = S802; ! BYTE COUNTS 
; 
; $712 § if EX_SUP_PRG () ! ISSUE AN EXECUTE SUPPLIED CMD 
i 71S 5 then ~ 1 TF ERROR 
8 fn $ 
: 2715 & ERAOF (29, EXE_SUP_ERR. 0); 
; $717 6 if .RET_STATUS then DECODE (); 
; 2718 6 
; 5719 6 CKLOOP; 
3 2720 6 RETRIES = TRUE; 
; 5721 6 leeve BLOCK]; ' VER.BO 
: 2722 5 end; 
; 69798 § 
; 2724 § : 
: 2795 5 {WAIT FOR “DONE” SIGNAL FROM DM 
; J 

5757 § CHD _REF = 1 COMMAND REFERENCE @ 

; 5708 § BUF DESCRPTA » TIP, i CLEAN THE BUFFER 
; o7¢8 : BYTE_COUNT = 02; ! SET BYTE COUNTS = 2 
; 9731 § i REC_DATA () ! SENT A RECEIVE PATA COMMAND 
; S732 5 Gan + STATUS BIT INDICATES ERROR 
; 5733 6 begin + THEN 
: 37M 6 (30, RE_DATA_ERR, 0); H 
; 37% 6 | .RET_STATUS then DECODE (); 
s e737? 6 
; S738 6 cx: 00° 
; 2739 6 RETRIES = TRUE; 
3 2740 6 leeve BLOCK1; ' vVER.BO 
3 eras ; ens; 
; o73 § if TIP ealu 26R0 ! DID YOU GET SUCCESS FROM D% CODE? 
3 2744 «(6S an.) 
s 2745 6 eae * THEN 
: 2746 6 (31, DMC_ERR, 0); + REPORT ERROR 
3 
: 278 § RETAsEs » TRUE; 
: ; 
F} 4a 


env; 














B4 


ZRCFBE CZRCFCO 5 2 FR END TEST 27-Mar-1985 
TEST SECTI 27-Mar-1985 





SEQ 0247 
15:27:28  VAX-11 Blies-16 V4. p 
13:50:18 USERAL: CALTEC czRcFe lzRerc3.e16,4 88455 


< 
o 
w 
° 


; e752 4 ‘ 
; 2733 4 if (.RETRIES) then DO_RETRIES (); 
3 
: oe 2 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
Hy 
> 2757 3 end; 
> 2758 3 
3 2759 3 return; 
3 2760 1 ENOTST; 
.SBTTL $110 TEST SECTION 
000000 032767 000001 0000006 $710: BIT 61, SWP. TRACE 
000006 001407 Q 
000010 012746 0000006 MOV @DBM16, -(SP) 
000014 012746 000001 MOV #1, -(SP) 
000020 010600 MOV SP;RO 
000022 104417 TRAP 3=s-«17 
022626 CMP (SP)+,(SP)- 
000026 005067 0000006 1$: CLR NUM. RETRIES 
000032 026767 000000G 0000006 2s: CMP NUM. RETRIES, SWP.RETRIES 
000040 101151 BHI 118 
000042 005067 0000006 CLR TIP 
004767 0000006 JSR PC, AZTEC. READY 

000052 006000 ROR RO 
000054 103021 BCC 4s 
000056 104455 TRAP = 55 
000060 000034 .WORD 34 
000062 0000006 "WORD AZT.READY.ERR 
000064 000000 “WORD 
000066 032767 000001 0000006 BIT #1,RET. STATUS 
000074 001402 BE? 
000076 004767 0000006 JSR PC, DECODE 
000102 104465 3$: TRAP 3s «665 
000104 ROR R 
000106 103526 BLO «118 
000110 012767 000001 0000006 MOV #1,RETRIES 
000116 000511 BR . 9$ 
000120 012767 000003 0000006 4$: MOV #3, CMD. REF 
000126 012767 000000G 000000G MOV 00M. 10. BUF. DESCRPTR 
000134 012767 000164 0000006 MOV #164,BYTE.COUN 
000142 004767 000000G JSR PC EX. SUP.P _ 
000146 006000 ROR RO 
000150 103021 BCC 

152 104455 TRAP gs 

154 000035 .WORD 35 

156 0000006 "WORD EXE.SUP.ERR 

160 000000 “WORD 

162 032767 000001 0000006 BIT 61,RET. STATUS 

170 001402 BEQ 

172 004767 0000006 JSR PC, DECODE 

176 104465 S$: TRAP 3s «6655 

200 006 ROR RO 

202 103470 BLO 11$ 

204 012767 000001 0000006 MOV $1,RETRIES 

212 00045 BR 

214 012767 000004 0000006 6$: MOV 04,CMD.REF 











C4 


CZRCFCO RC2S FR END TEST 27-Maer-198 
TEST SECTION 27-Mar-198 





1 SEQ 0248 


15:27:28  VAX-11 Bliee-16 v4.0-579 age 53 
13:28:18 : (AZTEC. CZRCFCJZRCFC3.816;4 (12) 


27 
:28: 


vin 





000222 012767 000000G 000000G MOV @TIP ,BUF .DESCRPTR 
000230 012767 000002 000000G MOV #2,BYTE.COUNT 
000236 004767 000000G Ps a 
000244 103021 Bcc 83 

000246 104455 TRAP 55 

000250 000036 -WORD 36 

000252 -WORD RE.DATA.ERR 
000254 000000 . WORD 

000256 032767 000001 000000G BIT @1,RET.STATUS 
000264 001402 BEQ 7$ 

000266 004767 000000G JSR PC .DECODE 
000272 104465 7$: TRAP 65 

000274 006000 ROR 

000276 103432 BLO 11$ 

000300 012767 000001 000000G MOV 01,RETRIES 
000306 000415 BR 9$ 

000310 005767 000000G 8$: TST TIP 

000314 001012 BNF 9$ 

000316 104455 TRAP 55 

000 000037 -WORD 3 

000322 -WORD OMC.ERR 
000324 . WORD 

000 104465 TRAP 65 

000330 ROR 

000332 103414 BLO 11$ 

000334 012767 000001 000000G MOV #1,RETRIES 
000342 032767 000001 000000G 9$: BIT 61,RETRIES 
000350 001402 BEG 10$ 

000352 004767 000000G JSR PC ,DO0.RETRIES 
000356 005767 000000G 10$: TST NUM. RETRIES 
000362 001223 BNE $ 

000364 000207 11$: RTS PC 

; Routine Size: 123 words, Routine Base: ACSCODE + 6340 

; Meximum steck depth per invocation: 4 words 


-SBTTL 110 TEST ECTION 


004767 177406 T10:: 
1$: JSR PC,$T10 

104466 TRAP = 66 
006000 ROR RO 
103773 BLO 1$ 
000207 RTS PC 

; Routine Size: 6 words, | Routine Base: ACSCODE + 6726 

; Maximum stack depth per invocation: 2 words 

$ 2761 1 H 

: 2762 3 BGNTST; 

s 2s 8 

; 2764 3 feos 

3 2765 3 ! TEST #11 - BUS ADDRESSING/DATA TEST A 





SF SH SF SE SS SS SF OF SF SE SF SS SE GF GF GF SS GF SF GF GF SF OF Gs SF OF GH OF OF GE GF Gs GF Gs OF GF GF GH OF OF OF Ge Ge OF Gs Os Os Os OF OF Os Os os os Os Oo os 





MUD ARAAAAANAOMNMNVUVVIVIG & SUIVIVIVIVIVIVUIUL & & & & WWW WWIII IOI UN 













D4 


SEQ 0249 
CZRCFCO C25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 age 
TEST SECTI 57-Mar-1985 13:28:18  USERS1:CAZTEC -CZRCFCIZRCFC3, B16;4 (12) 


' 
! DESCRIPTION: 


THIS Be go gs MACHINE” PROGRAM ASKS THE 4 + 11 PROGRAM TO FILL FREE 
MEMORY (TH ro og TO THE POP-11 PROGRAM THAT i NOT BEING 
USED BY THe P ROGRAM OR THE PDP-11 SUPERVISOR) WITH AN ADDRESSING 

oe tan (WRITE ADDRESS WITH ADDRESS) AND REPORT THE LOCATION AND SIZE 
OF THE FREE MEMORY. EVERY LOCATION OF FREE MEMORY WILL BE READ AND 
THE DATA CHECKED. 


IF THE DATA DOES NOT COMPARE CORRECTLY, THE ADDRESS AND DATA 
EXPECTED ARE REPORTED. 


oe sLOCks ; ! VER.BO 
if .SWP_TRACE then PRINTF (DBM17); ! TEST 11 
NUM_RETRIES = ZERO; 
while (,NUM_RETRIES lequ .SWP_RETRIES) do 


ae 
TIP = Ji; 
if AZTEC_READY () 1 GET AZTEC READY FOR OPERATION 
then 
begin 
ERADF (32, AZT_READY_ERR, 0); 


if .RET_STATUS then DECODE (); 


CKLOOP; 
RETRIES = TRUE; 
end 
else 
BLOCK1 : s 
begin 


COMMAND REFERENCE @ 
DMCODE STARTING ADDRESS 
BYTE COUNTS 


ISSUE AN EXECUTE SUPPLIED - 
ton BIT INDICATES ERROR 


CMD_REF = 3; 
BUF “DESCRPTR = DM_11; 
BYTE_COUNT = 100¢2; 


if EX_SUP_PRG () 
then 


begin 

ERRDF (33, EXE.SUP_ERR, 0); 

if .RET_STATUS then DECODE (); 
CKLOOP; 

RETRIES = TRUE; 


leave BLOCK1; 
end; 


VER .BO 












F4 





ZRCFRB3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 = iy 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: : (AZTEC, CoRCECIZRCFCS. B16;4 (12) 
; 2823 5 H SADD = ,FREE_MEM_ADOR; ! LO-BYTE FREE HOST MEMORY ADDRESS 
; 2824 5 TEMP H_SADD; ! LOAD START ADDRESS FOR INIT 
:; e825 5 BUF LENGTA 2 “HEM “se ' TOTAL FREE HOST ORY SIZE 
; 2826 5 H_EADD = a _SADD - 2 « (.BUF_LENGTH#2); ! END OF FREE MEM AD 

; 2827 5 CAD_REF +4 ' COMMA FERENC 

>; 2828 5 BUF ~DESCRPT = H_SADD; ' DESCRIPTOR ADDRESS 

; 2829 5 BYTE_COUNT = A ! TOTAL BYTES TO BE TRANSFER 
:; 2830 5 ! INITIALIZE MEMORY BUFFER WITH A PATTERN BEFORE 

: cout 2 ! ASKING DM CODE TO WRITE TO THE BUFFER 

; 2833 5 incru COUNT from .H_SADD to .H_EADD by 2 do 

>; 2834 6 ae LO 

; 2835 6 ® #0'177777'; 

; 2836 6 TEMP = .TEMP « 2; 

3 2837 5 end; 

; 2838 5 

3 444 : H_EADD = 0; ! HIGH BYTE FREE MEMORY ADDRESS 
; 2841 5 if SEND_DATA () ! ISSUE SEND DATA COMMAND 

; 2842 5 then ! STATUS BIT INDICATES ERROR 
>; 2843 6 pesic ' THEN 

$ seas ° ERRDF (34, SND_DATA_ERR, 0); ! 

3 2846 6 if .RET_STATUS then DECODE (); 

F 2847 6 

; 2648 6 CKLOOP ; 

; 2849 6 RETRIES = TRUE; 

3 2850 6 leave BLOCK1; ! VER.BO 

3 2851 5 end; 

; 2852 5 

; 2853 5 CMD_REF 

; 2854 5 BUF -BESCRPTA = TIP; ! CLEAN THE BUFFER 

; cae : BYTE_COUNT = 02; ! SET BYTE COUNTS = 2 

3 2857 5 if REC_DATA () ! SENT A RECEIVE DATA COMMAND 
>; 2858 5 th - !' STATUS BIT INDICATES ERROR 
3 2859 6 poate ' THEN 

; oo; ? ERRDF (35, RE_DATA_ERR, 0); $ 

; 2862 6 if .RET_STATUS then DECODE (); 

; 2863 6 

; 2864 6 CKLOOP; 

3 2865 6 RETRIES = TRUE; 

3 2866 6 leave BLOCK1; ! VER.BO 

PF} 2867 5 end; 

; 2868 5 

$ < : : EXAMINE THE FREE HOST MEMORY 

: ee7t 2 TIP = 2; ! ADDRESS CONTAIN OWN ADDRESS 
Fy 2873 5 if EXAM_DATA () 

3 2874 5 then 

; 2875 6 begin 

$ 2876 6 ERRDF (36, BUFF_ERR, RC25$ERR_RPT); 

$ 2877 6 CKLOOP; 

>; 2878 6 RETRIES = TRUE; 

3 2879 5 end; 


— 





F4 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Blise-16 V4.0-579 _ ~~ 6 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCIJZRCFC3.616;4 (12) 
5 
; end; 
4 if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 
3 end; 
3 
3 return; 
1 E 3 
.SBTTL $T11 TEST SECTION 
010146 $T11: MOV i.- 
032767 000001 0000006 BIT #1, SWP. TRACE 
001407 BEQ 
012746 0000006 MOV 908M17, -(SP) 
012746 000001 MOV #1,-(SP) 
10600 MOV SP,RO 
104417 TRAP —_-‘17 
022626 CMP (SP)+,(SP)- 
005067 0000006 1$: CLR NUM. RETRIES 
026767 0000006 0000006 2s: CMP NUM. RETRIES, SWP.RETRIES 
101402 BLOS 3$ 
000167 000556 JMP 18$ 
012767 000013 0000006 3$: MOV #13, TIP 
004767 0000006 JSR PC, AZTEC. READY 
ROR RO 
103024 BCC 6$ 
55 TRAP 3s 55 
ry .WORD 40 
"WORD AZT.READY.E®R 
000000 “WORD 
032767 000001 0000006 BIT $1,RET. STATUS 
001402 BEQ 4 
004767 0000006 JSR PC, DECODE 
104465 4$: TRAP 3s «6S 
006000 ROR RO 
103002 BHIS 5$ 
000167 000502 . JMP 18$ 
012767 000001 0000006 S$: MOV 01,RETRIES 
000167 000442 JMP 16$ 
012767 000003 0000006 6$: MOV 03,CMD.REF 
012767 0000006 0000006 MOV 00M. 11.BUF. DESCRPTR 
012767 000310 0000006 MOV #310, BYTE. COUN 
004767 0000006 JSR PC,EX.SUP.PR ag 
ROR RO 
103023 BCC 
04455 TRAP 3 
i .WORD 41 
"WORD EXE.SUP.ERR 
000000 “WORD 
032767 000001 0000006 BIT #1,RET. STATUS 
001402 BEQ 
004767 0000006 JSR PC,DECODE 
104465 7$: TRAP 3s «65 








G4 





SEQ 
pocce 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-1 579 age 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC. CzRCEC IZRCFC3, B16;4 (12) 
006000 ROR RO 
103002 BHIS  8$ 
000167 000400 JMP 18% 
012767 000001 0000006 8$: MOV #1,RETRIES 
000561 BR 1 
016767 0000006 0000006 9$: MOV FREE. sitet. ADOR,H. SADD 
016767 0000006 0000006 MOV 
016767 0000006 0000006 MOV nen Age! te ghENGTH 
016700 0000006 MOV BUF . LENGTH 
006300 ASL RO 
066700 0000006 ADD H.SADD,RO 
010067 0000006 MOV RO,H.EADD 
162767 000002 0000006 SUB $2.4. EADD 
012767 000004 0000006 MOV 04, CMO. REF 
012767 0000006 0000006 MOV oH. SADD, BUF . DESCRPTR 
012767 000006 0000006 MOV 06 ,BYTE COUN 
016701 0000006 MOV H.EADD.RI 
00 0000006 MOV H.SADD.R 
000410 BR 1i 
012777 177777 0000006 10$: MOV 0-1, aTEMP 
062767 000002 0000006 ADD 02, TEMP 
062700 000002 ADD 62,R0 
1 11$: CMP RO,R1 
101766 BLOS 10% 
005067 0000006 CLR H.EADD 
004767 0000006 JSR PC, SEND.DATA 
006000 ROR RO 
103021 BCC 13$ 
104455 TRAP 3-555 
2 .WORD 42 
“WORD SND.DATA.ERR 
000000 "WORD 0 
032767 000001 0000006 BIT $1,RET. STATUS 
001402 BEQ 1 
20 004767 0000006 JSR PC, DECODE 
24 104465 12$: TRAP 65 
26 006000 ROR RO 
103476 BLO 18$ 
012767 000001 0000006 MOV #1,RETRIES 
000457 BR 163 
012767 000005 0000006 13$: MOV #5, CMD. REF 
012767 0000006 0000006 MOV oTIP, BUF DESCRPTR 
012767 000002 000000G MOV 02.BY TE. COUN 
004767 0000006 JSR PC‘REC. bara 
70 006000 ROR RO 
103021 BCC 15$ 
74 104455 TRAP «55 
76 000043 .WORD 43 
0000006 "WORD RE.DATA.ERR 
502 000000 "WORD 0 
032767 000001 0000006 BIT #1,RET. STATUS 
512 001402 BEQ 1 
514 004767 0000006 JSR PC, DECODE 
520 104465 14%: TRAP 65 
522 006000 ROR 
524 103440 BLO 18$ 
012767 000001 0000006 MOV #1,RETRIES 








H4 





SEQ 0253 


ZRCFBS CZRCFCO ryan FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 age 
v03.0 TEST SECTI 27-Mar-1985 13:28:18 USER$1: (AZT EC. CZRCFCIZRCFCS. B16;4 © (12) 
000534 000421 BR 
000536 012767 000002 0000006 15$: MOV #2,TIP 
000544 004767 000000G JSR PC,EXAM.DATA 
000550 006000 ROR RO 
000552 103012 BCC 16 
000554 104455 TRAP 55 
000556 000044 -WORD 4 
000560 0000006 -WORD BUFF.ERR 
000562 0000006 -WORD RC2S$SERR.RPT 
000564 104465 TRAP 65 

006000 
000570 103416 BLO 18% 
000572 012767 000001 000000G MOV #1,RETRIES 
000600 032767 000001 0000006 16$: BIT #1,RETRIES 
000606 001402 BEQ 17$ 
000610 004767 000000G JSR PC,00.RETRIES 
000614 005767 0000006 17$ TST NUM, RETRIES 
000620 001402 BEQ 
000622 000167 177206 2$ 
000626 012601 188; MOV (SP)+,R1 
000630 000207 RTS PC 


; Routine Size: 205 words, Routine Base: ACSCODE + 6742 
; Maximum stack depth per invocation: 5 words 


-SBTTL 111 TEST SECTION 
000000 004767 177142 : Tilss 


000000 1$: JSR PC,$T11 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 

; Routine Size: 6 words, Routine Base: ACS$CODE + 7574 


; Maximum stack depth per invocation: 2 words 


s 2691 1 !<BLF /PAGE> 





— 
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14 


SEQ 0254 
CZRCFCO 35 8 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 Page 59 
TEST SECTI 27-Mar-1985 13:28:18 USER$1:(AZTEC.CZRCFCJZRCFC3.616;4 (13) 
t 
BGNTST; 


fee 

; TEST @12 - BUS ADDRESSING/DATA TEST B 
DESCRIPTION: 

‘ THIS TEST IRS? BRINGS AZTEC DRIVE READY AND ONLINE AND THEN 
' LOADS DM_12 PROGRAM VECTOR TO PORT CONTROLLER MEMORY. THEN 
DOES THE FOLLOWING: 

' A. GIVE FREE MEMORY ADDRESS AND BUFFER SIZE TO OM CODE 

' AND ASK DM CODE N OF ONE'S COMPLEMENT 

' OF ADDRESS AT THE ADDRESS AND EXPECTS TO RECEIVE 

' SUCCESS OR FAILURE CODE FROM DM PROGRAM, THEN CHECKS 
‘ MEMORY BUFFER FOR THE EXPECTED PATTERN AND REPORTS 
ERROR IF ENCOUNTERED. 

‘ B. IF SUCCESS, ASKS DM CODE TO WRITE TO MEMORY A PATTERN 
OF ALL ONES AND CHECKS FOR THE PATTERN IN MEMORY, 

: 

‘ 

’ 

i 

: 

:. 


C. IF SUCCESS, ASKS DM CODE TO WRITE TO MEMORY A PATTERN 
OF ALL ZEROES AND CHECKS FOR THE PATTERN IN MEMORY. 


IF OPERATOR ASKS FOR RETRIES THE WHOLE TEST WILL BE RETRIED 
ONLY IF FAILURE ENCOUNTERED. 


2h coc, ! VER.BO 
if .SWP_TRACE then PRINTF (DBM18); ! TEST 12 
NUM_RETRIES = ZERO; 

while (,NUM_RETRIES lequ .SWP_RETRIES) do 


begin 
TIe = 12; 
+ hana cmt () ! GET AZTEC READY FOR OPERATION 
then 
begin 
ERADF (37, AZT_READY_ERR, 0); H 


if ,RET_STATUS then DECODE (); 
CKLOOP; 

RETRIES = TRUE; 

end 


else 
BLOCK1 : 
begin 


SEND DOWN LINE LOAD THE DM CODE AND EXECUTE THE DM PROGRAM WHICH IT WILL 
WRITE THE FREE HOST MEMORY WITH COMPLEMENT THE TESTING ADDRESS 




















J4 





oe REFERENCE # 
CLEAN THE BUFFER 
SET BYTE COUNTS = 2 


CMD_REF = 5; 
BUF “DESCRPTR = TIP 
BYTE_COUNT = 02; 


ee. 0 
ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-1 579 ing 60 
vo3.0 TEST SECTION “ 27-Mar-1985 13:28:18 USERS: AZTEC CZRCECIZRCFCS. B16;4 09° 13) 
; 2949 5 CMD_R $4 ! COMMAND REFERENCE @ 
; e950 5 al -BescRe? = 0M_12; ' DMCODE STARTING ADDRESS 
3 soe) ; BYTE_COUNT = 202¢2; ! BYTE COUNTS 
3 
; 2953 5 if EX_SUP_PRG () ' ISSUE AN EXECUTE SUPPLIED - 
:; 2954 5 then ' IF STATUS BIT INDICATES ERROR 
3 2955 6 begin ! THEN 
3 sone : ERRDF (38@, EXE_SUP_ERR, 0); ! 
3 
:; e958 6 if .RET_STATUS then DECODE (); 
: 2959 6 
; 2960 6 CKLOOP; 
>; 291 6 RETRIES = TRUE; 
; 292 6 leave BLOCK1; ' VER.BO 
3 2963 5 end; 
; 2964 5 
: gos Z incru COUNT from 0 to 2 do 
; 2967 6 H te .FREE_MEM_ADOR; ! L0-BYTE FREE HOST MEMORY ADDRESS 
>; 2968 6 TEMP = .H_SADD; 
; 2969 6 BUF _LENGTA = “HEM _S1Z; ' TOTAL FREE HOST MEMORY SIZE 
; day : ; HEAD = .FREE_MER_ ADDR - 2 ¢ .BUF_LENGTHe2; ! END ADDRESS OF BUFFER 
3 sae} : : SENT FREE HOST MEMORY ADDRESS AND IT LENGTH TO DM PROGRAM 
; 2974 6 CMD_REF = ! COMMAND REFERENCE 04 
; e975 6 BUF -DESCRPTR * H_SADD; ' DESCRIPTOR ADDRESS 
; 2976 6 BYTE COUNT = 06; ' TOTAL BYTES TO BE TRANSFER 
; e977 6 ! INITIALIZE MEMORY BUFFER WITH A 4+ bo BEFORE 
8 Sore : * ASKING DM CODE TO WRITE TO THE BUFFE 
; 2980 6 incru LOOP from .H_SADD to .H_EADD by 2 do 
; 2981 7 baie 
; 2982 7 TEMP = #0'125252'; 
>; 2983 7 TEMP = .TEMP « 2; 
3 29 6 end; 
3 2985 6 
: e306 . H_EADD = 0; ! HIGH BYTE FREE MEM ADDRESS 
; 2988 6 if SEND_DATA () ' ISSUE SEND DATA COMMAND 
; 2989 6 then ' STATUS BIT INDICATES ERROR 
s 2990 7 peain ' THEN 
; tad : ERRDF (39, SND_DATA_ERR, 0); ! 
; 3444 : if .RET_STATUS then DECODE (); 
; 2995 7 CKLOOP; 
:. 7 RETRIES = TRUE; 
; e997 7 leave BLOCK1; ' VER.BO 
3 2998 6 end; 
3 2999 6 
: 3000 6 H 
; 3001 : : WAIT FOR “DONE” SIGNAL FROM 0M 
3 _ 
$ 6 
; 6 
$ 6 








ZRCFR3 Gener eo RC25 FR END TEST 

vo3.0 TEST SECTION 

3 3006 6 ; 

; 3007 6 if REC_DATA () ! 
z 3008 6 then ! 
: 3009 7 begin ! 
; it : ERRDF (40, RE_DATA_ERR, 0); ! 
3 

; wee FT if .RET. STATUS then DECODE (); 

3 3013 7 

:; 3014 7 CKLOOP; 

. Dis F RETRIES = TRUE; 

>; 3016 7 leave BLOCK1; ! 
:; 3017 6 end; 

; 3018 6 : 

; 3019 6 if .TIP nequ so‘ 104' ! 
: 3020 6 then ! 
. pen F begin 

; 3022 7 RROF (41, oe ERR, 0); 

; 3023 7 RETRIES = TRUE; 

3 S055 : oa rs 

g ex: tlioop; 

; 3026 6 end; 

3 3027 6 

: 3028 6 H 

>; 3029 6 ! EXAMINE THE FREE HOST MEMORY 

8 3030 6 ' 

; 3031 6 . 

3 3032 6 if .COUNT eaqlu 0 then TIP = 1; ! 
3 3033 6 

8 3034 6 H 
: 3035 6 ; 

3 ts 3 ? if .COUNT eqlu 1 then TIP = ALL_ONES; 
; 3038 6 if .COUNT eqlu 2 then TIP = ZERO; 

3 3039 6 

; 3040 6 if EXAM_DATA () 

3 3041 6 then 

; 3042 7 begin 

; 3043 7 ERRDF (42, BUFF_ERR, RC25$ERR_RPT); 
3 3044 7 CKL 3 

3 3045 7 RETRIES = TRUE; 

8 3046 7 leave BLOCK]; 

3 3047 6 end; 

$ 3048 6 

; 3049 6 : > 

5 sone ? : SIGNAL DM TO CONTINUE TO EXECUTE THE PRCGRAM 

3 3052 5 end; 

$ 3053 5 

$ 3054 4 end; 

s 3055 4 2 

3 sort ¢ if (. RETRIES) then DO_RETRIES (); 

; eee : if (.NUM_RETRIES eqlu ZERO) then exitloop; 

3 3060 3 end; 

3 3061 3 

3 3062 3 return; 


tr 















K4 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


SEQ 0256 


Bliss-16 V4.0-579 61 
of (13) 


VAX-11 ‘ 

USER$1: (AZ TEC. CZRCFCIJZRCFC3.B16;4 
SENT A RECEIVE DATA COMMAND 

Ul, BzT INDICATES ERROR 

REPORT ERROR 


VER .BO 


v DOM RETURNS el te! CODE 
THEN ABORT DM PROGRAM 


ADDRESS CONTAINS COMPLEMENT 
OF ADDRESS 

! MEMORY PATTERN SECOND TIME 
! MEMORY PATTERN THIRD TIME 


! VER.BO 


! ASK DM CODE TO CONT. 


-—--— 








ZRCFRS 
vO3.0 
3 3063 1 





FCO RC2S FR END TEST 
SECTION 


ENOTST; 


7 4 


000000G 
000001 0000006 


000000G 


- SBTTL 
$Tl2: J 


ftw 
as 
oO 


5$: 
6$: 


7$: 


9%; 
108: 


L4 


3 Mer -19 
27 -Mer-19 


ew 
vin 


$Tl2 TEST SECTION 
Ri, E2 
i" .SWP, TRACE 


-(SP) 
#1. #1, (38) 


1 A 
(SP)+,(SP)« 
NUM. RETRIES 
NUM.RETRIES, SUP. RETRIES 
PC 

014, TIP 

PC, AZTEC. READY 
RO 

63 

55 

as 

AZT READY .ERR 
@1.RET. STATUS 
PC ,DECODE 


1, sRETRIES 


"CHD. RE 
le, BUF. DESCRPTR 
624, BYTE. COUNT 
as” Ex. SUP: PRG 


$ 
oy SECOSE 


01,RETRIES 
22s 


R2 
FREE .MEM. ADDR ,H.SADD 
H. SADD, TEMP 

MEM. S12, BUF .LENGTH 
BUF -LENGTH,RO 


11 
USERS: 


SP,¢ 


COUNT 





SEQ 0257 | 


lis@-16 62 
09 135 


AZTEC. C2RCECIZRCFCS. B16;4 


2890 
2924 


2926 
2928 


2930 
2932 
2935 


2937 


2958 


ZRCFRS 
vo3.0 





CZRCFCO RC2S FR END TEST 
TEST SECTION 


000000 
012767 000001 0000006 
104465 


118; 


128: 


138: 


148; 


158: 


16$: 


M4 


27-Mer -1985 
27-Mar-1985 


RO 

FREE .MEM. ADDR ,RO 
RO,H.EADD 

@2,H.EADD 

04. “MD .REF 

@H 2ADD.BUF .DESCRPTR 
ay) ae 


H.EADD,.R 
H.SADD,RO 
12$ 

02, TEMP 
RO,R1 

11% 


.EADD 

PC. SEND.DATA 

RO 

14% 

55 

47 

SND .DATA.ERR 

1 | alata 
PC .DECODE 

65 


243 
01,RETRIES 
22% 


50 

RE .DATA.ERR 
@1,RET. STATUS 
PC .DECODE 
65 

RO 

243 

23 EES 
TIP, 0104 
17$ 

55 

51 

-<- 
01,RETRIES 
65 





VAX- 
USERS 





11 Bliss-16 V4.0-579 
1: (AZTEC. CZRCFC JZ9°CFC3.616;4 





29862 
2983 
2980 





NU ae N4 





ZRCFRS CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-1 t Phise.tey co Nong 64 
vo3.0 TEST SECTION 27-Mer-1985 13:26:18 USERIT: AZTEC CZRCECIZRCFCS. B16;4 (13) 
OR 
Bcc 22% 
im; Tt RS COUNT 
: F 3032 
BNE 18$ 
000001 0000006 MOV 61,TIP 
000001 18%: a re : COUNT,«¢ 3036 
177777 0000006 MOV @-1, TIP 
000002 19% cme R2,02 ; COUNT,« 3038 
BNE 208 
000000G CLR TIP 
000000G 208: JSR PC,EXAM.DATA $ 3040 
ROR RO 
Bcc 21% 
TRAP 55 : 3043 
. WORD 
«WORD BUFF .ERR ‘ 
-WORD RC25SERR. RPT 
TRAP 65 
ROR RO , 
BLO 243 
000001 0000006 MOV 61 ,RETRIES : 3045 
BR 22% F 3042 
21s: INC R2 ; COUNT 2965 
000002 CMP R2, 02 ; COUNT,« 
BHI 22 
177330 JMP 108 
000001 0000006 22%: art + Fant : 3056 
000000G JSR PC ,00.RETRIES 
000000G 23%: TST NUM. RETRIES 5 3058 
BEQ 243 
177102 JMP es 
243: RTS PC ; 2890 
239 words, Routine Bese: ACSCODE - 7610 
depth per invecet i on: 7 words 
-SBTTL 12 TEST SECTION 
— } ee 3062 
. ; 
TRAP 56 
acl RO 
6.0 is 
ars PC 
+ Routine Size: 6 words, Routine Bese: ACSCODE - 10546 
3s Mexieve steck depth per invocetion: 2 words 


; et } ! <BLF /PAGE > 





Se Ge SF Se SH SF SS GH Ge SH GF SH Ge Ge GF Ge GF Ge GF St GS Gt Se GH GF Gs Gs GF Gs GS GH GS GF GS GF SF Ge Ge GF OF Os GF OF Ge GH Os SF Ge Ge Ge OF os OF os Oe GF o% 





1 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 


i 
BGNTST; 





CZRCFCO RC2S FR END TEST 


BS 


See 
: TEST #13 - BLOCK TRANSFER TEST 


label 
BLOCK1; 


{ DESCRIPTION: 


THE ABILITY OF THE AZTEC CONTROLLER TO DO BLOCK TRANSFERS 0 AND FROM 
MEMORY “a BE westee WITH DIFFERENT gl PATTERNS. THE “WRITE HOST 
MEMORY” ote se! THE “READ HOST Y" XFC WILL BE USED. THE HOST 
MEMORY BUFFER IS 256 WORDS IN SIZE. 4 DIFFERENT DATA PATTERNS AS 
GIVEN BELOW ARE USED. 


PATTERN 0 PATTERN 1 PATTERN 2 PATTERN 3 
111111 177400 155555 000377 
044444 007760 133333 170017 
022222 000377 066666 177400 


1) THIS TEST BRINGS RC25 CONTROLLER ONLINE AND LOADS DM CODE 
PROGRAM TO CONTROLLER'S MEMORY. 


2) FIRST THE HOST MEMORY BUFFER IS INITIALIZED WITH PATTERN O. 
RF ie COMMAND WITH HOST BUFFER ADDRESSES (TRANSMIT AND RECEIVE) 


3) OM CODE THEN READS HOST MEMORY BUFFER AND PUTS IN CONTROLLER'S 
MEMORY AND WRITES BACK IN HOST MEMORY RECEIVE BUFFER USING XFC’'S. 


4) HOST PROGRAM COMPARES BOTH BUFFERS FOR DATA PATTERN O. 

5S) IF THERE WAS AN ERROR IN COMPARISION THE ERROR WILL BE REPORTED. 
IF THERE WAS ERROR IN THE MSCP DUP CALLS OR INITIALIZATION, THIS 
WILL ALSO BE REPORTED. 

STEPS 2 THRU S WILL BE REPEATED FOR DATA PATTERNS 1,2 AND 3. 


IF AN ERROR WAS ENCOUNTERED THE TEST WILL BE ABORTED. IF OPERATOR 
CHOSE FOR RETRIES, RETRIES WILL BE DONE FROM THE START OF THE TEST. 


if .SWP_TRACE then PRINTF (DBM19); ! TEST 13 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 


in 


TIP = 13; 
' GET AZTEC READY FOR OPERATION 


if AZTEC_READY () 
then 


! IF FAILURE REPORT ERROR 






27-Mar-1985 15:27:28 VAX-11 Blise-16 V4.0-579 
TEST SECTION 27-Mar-1985 13:28:18 USER$1; (AZTEC, CZRCFCIZRCFCS. B16;4 . 



















SEQ yy P 
mate’) 


SF SF SF Se SF SF Se GF SF Ge Ge GF GF SF GF GF SF GF GF SF SF GF GF OF GF Gs Gs GH GH OF SF OF GF OF GF GF OF OF SF GF Os Ge Oe Os Os OF OF Os Os Oe Os Os os Os Oe oe os 


SD DD NSS DRADAAHDAHAHAADHAAMAHAAAAAAAAHAMNMNAAAAAHOOVUUVVIVIVIU & & BUI 


CZRCFCO RC25 FR END TEST 
TEST SECTION 
begin 
ERRDF (43, AZT_READY_ERR, 0); 
if .RET_STATUS then DECODE (); 
RETRIES = TRUE; 
end 
else 
' LOAD OM CODE INTO CONTROLLER'S MEMORY 
BLOCK : 
Pee 'e REF = .CMD_SLO 
BUF -DESCRPTR o oH 18; 
YTE_COUNT = lose3. 
if EX_SUP_PRG () 
then 


peaie 
ERRDF (44, EXE_SUP_ERR, 0); 
if .RET_STATUS then DECODE (); 
RETRIES = TRUE; 
leave BLOCK1; 
end; 
incru COUNT from 0 to 3 do 
begin 


WITH THE SELECTED PATTERN. 


selectoneu .COUNT of 
set 


0): 
PATTERN_ADDR = DATA_PAT1; 


PATTERN_ADDR = DATA_PAT2; 


2): 
(2) PATTERN_ADDR = DATA_PAT3; 


had PATTERN_ADDR = DATA_PAT4; 


tes; 


incru J from 0 to 254 do 
begin . 


incru K from 0 to 2 do 


A 2 


end; 





27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


SELECT ONE OF THE PATTERNS AND INITIALIZE HOST TRANSMIT BUFFER 


! BUFFER OF 256 WORDS 


ve? D -DATA.BUF [J] * .PATTERN, ADDR [ 

















2 


SEQ 0261 


VAX-11 Bliss-16 6 
nate?) 


USER$1: (AZTEC. CORCFCIZRCFCS. B16;4 


DECODE THE STATUS, IF ANY 
SET RETRIES FLAG 


COMMAND REFERENCE @ 
DMCOD® STARTING ADDRESS 
BYTE  UNTS 


ISSUE AN EXECUTE SUPPLIED PROGRAM 
IF STATUS BIT INDICATES ERROR 
THEN REPORT ERROR 


DECODE STATUS, IF ANY 


INITIALIZE TRANSMIT 
! WITH THE PATTERN 


Perabicat 9 METHIN TISER LOOP 




















D5 





SEQ 0 
> 262 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 age 
vo3.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCFCIZRCFC3. B16;4 . (14) 
3 3179 7 

; 3180 7 Je J = Ls ! DECREMENT J TO ADJUST POINTER 
: 318) : end; 

3 a8; : : GIVE START ADDRESS OF TRANSMIT AND RECEIVE BUFFER AND SIZE TO DM CODE 

; 3185 6 SEND_PKT [WORDO) = ty _DATA_BUF (Os, LOW WORD OF TRANSMIT ADDRESS 
; 3186 6 SEND_PKT [WORD1] = HIGH WORD OF TRANSMIT ADDRESS 
; 3187 6 SEND_PKT [WORD2) = Rey. DATA_BUF (0); LOW WORD OF RECEIVE ADDRESS 
>; 3188 6 SEND_PKT [WORD3) = 0; ! HIGH WORD OF RECEIVE ADDRESS 
; 3189 6 CMD_REF = .CMD_SLOT; ! COMMAND REFERENCE 04 

; 3190 6 BUF DESCRPTR = SEND ‘KT; ' DESCRIPTOR ADDRESS 

3 3133 : BYTE_COUNT = 08; ! TOTAL BYTES TO BE TRANSFERRED 
$ 

; 3193 6 if SEND_DATA () ' ISSUE SEND DATA COMMAND 

; 3194 6 then ! IF STATUS BIT INDICATES ERROR 
; 3195 7 begin ' THEN REPORT ERROR 

3 sige ; ERRDF (45, SND_DATA_ERR, 0); ' 

: 

Y tte 2 if .RET_STATUS then DECODE (); ! DECODE RETURN STATUS 

3 3200 7 RETRIES = TRUE; 

: 3201 7 exitloop; 

| BS ~ 

Fy 3204 6 ' ISSUE A REC_DATA COMMAND AND GET THE RESULT OF DM CODE STATUS 

: $205 6 ' IN ‘TIP’ 

: 06 6 CMD_REF = .CMD_SLOT; ! COMMAND acre r) 

3 3207 6 BUF “DESCRPTR ® TIP; ' CLEAN THE BUFFE 

; 3208 6 BYTE_COUNT = 02; ! SET BYTE cBUNTS” 2 2 

; 3210 6 if REC_DATA () ' SENT A RECEIVE DATA COMMAND 

3 3211 6 then J ' IF STATUS BIT INDICATES ERROR 
s 3212 7 begin ! THEN 

: ah : ERRDF (46, RE_DATA_ERR, 0); ' REPORT ERROR 

3 3215 7 if .RET_STATUS then DECODE (); 

; 3216 7 s 

Fy 3217 7 RETRIES = TRUE; 

: 3218 7 exitloop; 

; 3219 6 end; 

; 3220 6 ; 

s 3221 6 if ,TIP nequ #0'104' ! IF OM RETURNS FAILURE CODE 

3 3222 6 — ' THEN ABORT DM PROGRAM 

; 3224 7 ER oF (47, pic ERR, 0); 

$ 3225 7 RETRIES = TRUE; 

3 3226 7 exitloop; 

Ba = 

8 aH : ! COMPARE TRANSMIT AND RECEIVE BUFFERS FOR THE PATTERN 

3 3231 6 incru J from 0 to 255 do 

; 3232 7 begin 

3 3233 7 

3 3234 7 if .XMT_DATA_BUF [.J] nequ .RCV_DATA_BUF [.u) 

o 3235 7 then 


— 
















ES 


SEQ 0 
RCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Blie 98-16 V4.0 nor 68 
0 ST SECTION 27-Mar-1985 13:28:18 | USER$1:(AZTEC. CoRCECIERCFCS, B16;4_ (14) 
3236 8 
3237 8 bso = yMT _DATA_BUF wh ! TRANSMIT BUF FAILURE ADDRESS 
3238 8 P4 = RCV_DATA_BUF [.J ' RECEIVE BUF FAILURE ADDRESS 
3539 8 = .XMT_DATA. BUF aT i TRANSMIT DATA 
3240 8 P6 = -RCV_DATA_BUF [.J); ! RECEIVE DATA 
3241 8 ERRDF (48, BUFF_ERR, 0); ! PRINT ERROR INFO. 
3242 8 PRINTB (FMT7, .P3, . 
3243 8 PRINTB (FMT7A, .PS, .P6); 
3244 8 RETRIES = TRUE; ! TURN ON RETRIES 
3245 8 exitloop; 
3246 7 end; 
3247 7 
3248 6 end; 
3249 6 
3250 5 end; 
3251 5 
3252 4 end; 
3253 4 
3254 4 if (.RETRIES) then DO_RETRIES (); 
3256 4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
3258 3 end; 
3259 3 
3260 3 return; 
3261 1 ENDTST; 
.SBTTL $T13 TEST SECTION 
004167 0000006 $713: JSR » $SAVES 
032767 000001 0000006 BIT 01,SWP. TRACE 
001407 BEQ 
012746 0000006 MOV 0DBM19, -( SP) 
012746 000001 MOV #1, -(SP) 
010600 MOV SP RO 
104417 TRAP —s_-17 
022626 CMP (SP)+,(SP)-+ 
005067 0000006 1$: CLR NUM. RETRIES 
026767 000000G 000000G 2$: CMP NUM. RETRIES, SWP.RETRIES 
101401 BLOS 3$ 
000207 RTS PC 
012767 000015 0000006 3$; MOV #15,TIP 
004767 0000006 JSR PC, AZTEC. READY 
ROR RO 
103017 BCC S$ 
55 TRAP 3—ss«&&S 
000053 .WORD 53 
"WORD AZT.READY.ERR 
000000 “WORD 
032767 000001 0000006 BIT $1,RET. STATUS 
001402 BEQ 4$ 
004767 0000006 JSR PC,DECODE 
012767 000001 0000006 4$: MOV #1, RETRIES 
000167 000674 JMP 2 
016767 0000006 0000006 S$; MOV CMD. SLOT, CMD. REF 
012767 0000006 0000006 MOV 90M. 13, BUF .DESCRPTR 


012767 000322 0000006 MOV 0322,BYTE.COUNT 











000000 
032767 





CZRCFCO RC25 FR END TEST 
TEST SECTION 


0000006 


000240' 


000240' 


000240' 


000240' 


000001 000000G 


6$: 


7$: 
8$: 


9$; 


10$: 











F5 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


SEQ 0264 
Page 69 
oe 14) 


VAX-11 Bliss-16 V4.0-57 
USER$1: (AZTEC. CZRCECIZRCFCS. B16;4 - 


PC,EX.SUP.PRG $ 3137 
RO 
7$ 
55 3 3140 
54 
EXE. SUP.ERR 
alates ; 3142 
PC ,DECODE 
$1, RETRIES : 144 
233 3 3139 
R4 ; COUNT 3148 
R4,RO ; COUNT,*# 3155 
94 ; 3158 
@DATA.PAT1, PATTERN. ADDR ; 3159 
12$ 3 3155 
a : 3161 
@DATA.PAT2, PATTERN. ADDR ; 3162 
12s ; 3155 
tt tee : 3164 
@DATA.PAT3, PATTERN. ADDR F 3165 
12$ ; 3155 
rt neg ; 3167 
ODATA.PAT4, PATTERN. ADDR 3 3168 
R1 3 J 3171 
R3 3; K 3174 
R1,RO 3; J.* 3176 
RO 
aS’ »R2 3; K,* 
PATTERN. ADDR ,R2 
fh2), XMT. DATA. BUF (RO) 

3 J 3177 
RS 3; K 3174 
R3,#2 ; K,#® 
14$ 
R1,0376 3; J.* 3171 


1 
@XMT .DATA. BUF ,SEND.PKT 


SEND .PKT+ 
@RCV.DATA. BUF , SEND. PKT+4 
SEND .PKT« ee 

CMD. SLOT, CMD. REF 
OSEND.PKT, BUF DESCRPTR 
#10, BYTE. COUNT 


, SEND. DATA 





SND .DATA.ERR 
#1,RET.STATUS 











G5 





SEQ. 0 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0 . Pose 7 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC. CZRCECIIRCFCS. B16;4 ay 
BEQ 15% 
0000006 JSR PC, DECODE 
000001 0000006 15$: MOV #1,RETRIES ; 3200 
BR 233 ; 3195 
0000006 0000006 16$: MOV CMD. SLOT, CMD. REF i 3206 
0000006 0000006 MOV OTIP, BUF .DESCRPTR ; 3207 
000002 0000006 MOV $2,BYTE. COUNT i 3208 
0000006 JSR PC.REC. DATA ; 3210 
ROR RO 
BCC 183 
TRAP 3s 55 : 3213 
.WORD 56 
- WORD RE. DATA.ERR 
000001 0000006 eI 01 ,RET. STATUS ; 3215 
0000006 JSR PC, DECODE 
000001 0000006 17$: MOV 01.RETRIES : 3217 
BR 2 ; 3212 
0000006 000104 18$: » CMP TIP, 0104 ; 3221 
BEQ 19$ 
TRAP ; 3224 
.WORD 57 
“WORD OMC.ERR 
“WORD 
000001 0000006 MOV $1,RETRIES ; 3225 
BR 23$ ; 3223 
19s: CLR Ri ; J 323] 
20$: MOV R1,R3 ; Je 3234 
ASL R3 
MOV R1,RO ; Jv 
ASL RO 
0000006 0000006 cH XHT .DATA.BUF(R3),RCV.DATA,BUF (RO) : 
HOV R1,RO ; 
0000006 ADD @XMT. DATA. BUF ,RO 
0000006 MOV RO,P3 
MOV R1.RO 
ASL RO 
0000006 ADD @RCV. DATA. BUF ,RO 
0000006 MOV RO,P4 
MOV R1.RO 
ASL R 
0000006 0000006 MOV XMT. DATA, BUF(RO),PS 
MOV R1,RO 
ASL RO 
0000006 0000006 MOV RCV. DATA. BUF(RO),P6 
TRAP 55 
.WORD 60 
"WORD BUFF.ERR 
"WORD 0 
0000006 MOV P3, -(SP) 
0000006 MOV OFMT7, -(SP) 
000003 MOV #3,-(SP) 


MOV SP,RO 











H5 





SEQ 026 
ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bliss-16 V4.0-57 ay 71 
v03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCJZRCFC3.B16;4 (14) 
000726 104414 TRAP 9-14 
000730 062706 000006 ADD 06, SP 
000734 016716 0000006 MOV P6, (SP) ; 3243 
000740 016746 0000006 MOV PS, -(SP) 
000744 012746 0000006 MOV OFMT7A, -(SP) 
000750 012746 000003 MOV 03, -(SP) 
690754 010600 MOV SP,RO ; SP,* 
000756 104414 TRAP = (14 
000760 062706 000010 ADD #10,SP 
000764 012767 000001 0000006 MOV 61, RETRIES i 
000772 000404 BR 223 ; 
000774 005201 21$: INC Ri : J 
000776 020127 000377 CMP R1,0377 ; Joe 
001002 101676 BLOS  20$ 
001004 005204 22$: INC R4 ; COUNT 
001006 020427 000003 CMP R4, 03 ; COUNT, + 
001012 101002 BHI 233 
001014 000167 177176 JMP 83 
001020 032767 000001 0000006 23$: BIT 61,RETRIES : 
001026 001402 BEQ 243 
001030 004767 0000006 JSR PC,00.RETRIES 
001034 005767 0000006 24$: TST NUM, RETRIES ; 
001040 001402 BEQ 25$ 
001042 000167 176770 JMP $ 
001046 000207 25$: RTS PC ; 


3: Routine Size: 276 words, Routine Base: ACS$CODE + 10562 
; Maximum stack depth per invocation: 11 words 


-SBTTL 113 TEST SECTION 


000000 004767 176724 T13:: 

000000 1$: JSR PC,$T13 ; 
000004 104466 TRAP 66 

000006 006000 ROR RO 

000010 103773 BLO 1$ 

000012 000207 RTS PC 

3; Routine Size: 6 words, Routine Base: ACS$CODE + 11632 


; Maximum steck depth per invocation: 2 words 


i 
. BGNTST; 


See 

{ TEST @14 - SPIN UP/HEAD LOAD SEQUENCE 
! TEST @14 - SPIN UP/HEAD LOAD SEQUENCE 
! DESCRIPTION: 


Q 
o 
t 
7 
: THIS TEST FIRST INITIALIZES RC25 CONTROLLER, INITIALIZES COM_AREA, 
: AND DOES SET CONTROL CHARACTERISTICS. 


@e Ge Ge Ge Ge Ge Ge Gs OF Ge Gs Ge © 
Sx AWW 
o 
we 
AWWNAWWAWAUWOPe 








DRBAAAORMUNUUVUVU &S BUVIVIVIVIVIUI E Pa LLL & PWWWWWUNUWWNUWWWUWNUIWWUWWUU WWW 


CZRCFCO RC2S5 FR END TEST 
TEST SECTION 


' THEN, THIS TEST WILL FIRST ISSUE THE MSCP “AVAILABLE” COMMAND WITH THE 
! SPIN DOWN MODIFIER SET. IT WILL THEN WAIT FOR 30 SECONDS TO INSURE 
: THAT THE DRIVE HAS HAD TIME T I WN. IT WILL THEN ISSUE THE MSCP 
! “ONLI COMMAND TO SPIN THIS OPERATION WILL BE TIMED 
' A TIME WILL BE REPORTED TO THE OPERATOR SO THAT THIS TIME CAN BE 
' VERIFIED TO MAKE SU%E IT IS WITH IN LIMITS. THE RUN/START AND HEAD 
: LOAD INTERNAL DIAGNOSTICS WILL RUN DURI TI IF AN ERROR IS 
! ENCOUNTERED THE ge STATUS OF THE “ONLINE” COMMAND WILL BE 
! SOMETHING OTHER THAN "SUCCESS" AND THIS STATUS WILL BE DECODED 
: AND REPORTED WITH ERROR MESSAGE. 
Hy IF THE OPERATOR HAS SPECIFIED RETRIES ON ERROR, THE TEST WILL BE 
' REPEATED. 
: VER:C 
label 
BLOCK1; 


if .SWP_TRACE then PRINTF (DBM20); 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 
begin 
TIP = 14; 


! GET ty S + rare BY INITIALIZING RC25 
AND COM_A 


if AZTEC_READY () 
then 


begin 
ERADF (49, AZT_READY_ERR, 0); 
if .RET_STATUS then DECODE (); 


RETRIES = TRUE; 
end 


else 
BLOCK1 : 
begin 


ISSUE AVAILABLE COMMAND WITH SPIN DOWN MODIFIER SET 


if AVAILABLE () 
then 


begin 
ERBDF (50, AVAIL_ERR, 0); 
if ,RET_STATUS then DECODE (); 


RETRIES = TRUE; 
leave BLOCK1; 











I5 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


SEQ Say 
72 
matets) 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC, CzRCECIZRCFCS. B16;4 


! TEST 14 


' THIS IS A FLAG  # INDICATE 
! TO AZTEC_READY ROUTINE 
TO SKIP ONLINE HStP COMMAND. 
CONTROLLER’ 


! IF FAILURE REPORT ERROR 
.. 

! DECODE THE STATUS, IF ANY 
! SET RETRIES FLAG 


! ISSUE AVAILABLE COMMAND 


! DISPLAY ERROR MESSAGE 
! DECODE RETURN STATUS 














J5 





ZRCFR3 CZRCFCO Rc2s FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 vane 73 
v03.0 TEST SECTI 37-Mar-1985 13:28:18  USER$1:(AZTEC. CzRcEC IZRCFC3, B16;4 (14) 
; 3332 5 : end; 
; 3333 «5 
; 3334 : ! WAIT AT LEAST 30 SEC. TO MAKE SURE THE SPINDLE IS SPUN DOWN. 
: 3336 2 CLOCK_INIT (); ! VER:C 
: tg : at A TIME from 1 to 1000 do ! DELAY 30 SECOND; 
; 3340 6 BEPAY (100), ' DELAY 
; 5341 6 IF SECONDS GEQU 30 THEN EXITLOOP; ! VER:C 
; 3342 6 BREAK LOOK FOR CONTROL C 
3 3343 «5 end; 
; 3344 «5 
; 3345 : .CLK_CSR = ZERO; ! STOP THE CLOCK 
; 3347 : ; ISSUE A ON LINE COMMAND AND START THE CLOCK. 
; 3349 «5 : cLock INIT () ! INITIALIZE VARIABLES FOR CLOCK 
i $350 5 "REF = .CHO_SLOT; i SET COMMAND REFERENCE TO 3 
; 3352 5 if ON_LINE () ! SEND ON LINE COMMAND 
; «3353 «5 then ' IF COMMAND FAILED 
; 3354 6 begin 
; 3355 6 ERRDF (51, AZT_READY_ERR, 0); ! REPORT ERROR 
: 3357 6 if .RET_STATUS then DECODE (); ! DECODE STATUS 
; 3359 6 RETRIES = TRUE; 
3 3360 6 leave BLOCK1; 
3 3361 5 end; 
; 3362 5 
; 3363 5 CSR = ZERO; ! TURN OFF THE CLOCK 
; toe ; : 1 CALCULATE KySee ELAPSED 
; 43366 «5 P4 = ,TICKS*100/.CLK_HERTZ; ! TICKS CONVERTED TO 100TH OF A SEC 
; 3367 5 PS = - TICKS#100 mod .CLK HERTZ; ' REMAINDER 
; «43368 «5 Pa = P5*2/.CLK HERTZ ! ADD 1 10 TICKS IF > .5 
; «3369 «5 PRINTA. CFnTa. “MINUTES, SeeonDs, .P4); ! PRINT TIME TAKEN TO COME ONLINE 
; 3370 4 end; 
; «63371 4 
; 3372 4 if (.RETRIES) then DO_RETRIES (); 
- 3374 4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
; 463376 4 PASSO = FALSE; ! RESET FLAG 
3 3377 3 end; 
; 63378 3 
; 3379 3 return; 
; 3380 1 ENDTST; 
.SBTTL $114 TEST SECTION 
0000006 $714: v5 R1  sSAVE2 
000001 0000006 BIT 1, SWP, TRACE 


1 
000000G MOV #DBM20, -( SP) 











KS 


SEQ 0269 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Blis 99-16 V4, Page 74 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC, CzRcée IZRCFC3, B16;4 (14) 

012746 000001 MOV #1,-(SP) 
010600 MOV SP.RO ; SP,¢ 
104417 TRAP 3s «17 
022626 CMP (SP)+,(SP)- 
005067 0000006 1$: CLR NUM, RETRIES ; 
026767 0000006 0000006 2s: CMP NUM.RETRIES, SWP.RETRIES ; 
101402 5L0S 38 
000167 000474 JMP 198 
012767 000016 0000006 3$: MOV 016, TIP : 
004767 0000006 JSR pC, AZTEC. READY ; 
103016 BCC S$ 

55 TRAP 55 $ 

i .WORD 61 

"WORD AZT.READY.ERR 
000000 - WORD 
032767 000001 0000006 BIT @1,RET. STATUS ; 
001402 BEQ 43 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 4$: MOV 01. RETRIES : 
000574 BR 17% ; 
004767 0000006 S$: JSR PC, AVAILABLE ; 
006000 . ROR RO 
103020 BCC 7$ 
104455 TRAP 3—s«55 ' 
000062 .WORD 62 
0000006 "WORD AVAIL.ERR. 
000000 “WORD 
032767 000001 0000006 BIT 61,RET. STATUS : 
00 BEQ 6$ 
004767 0000006 JSR PC, DECODE 
012767 000091 0000006 6$: MOV 01.RETRIES P 
162706 000024 SUB 024,SP : 
000546 BR 16$ 
004767 0000006 7$: JSR PC,CLOCK.INIT : 
012702 000001 MOV 01.R2 ; ¢, TIME 
012701 000144 8$: MOV 0144,R1 ; ©. $$TMP2 
001410 9$: BEQ 12$ 
016700 0000006 MOV LSDLY,RO ; ©, $$TMPL 
001403 BEQ 11$ 
005016 10$: CLR (SP) ; $$TMP 
5300 DEC RO ; $$TMPL 

001375 BNE 10$ 
005301 11s: DEC RQ) ; $$TMP2 
000767 BR 93 
026727 0000006 000036 12$ CP SECONDS, 036 ) 
104422 TRAP = 22 
005202 INC R2 ; TIME 
020227 001750 CMP R2, 01750 ; TIME, 
101754 BLOS «BS 
005077 0000006 13%: CLR aclk.CSR : 
004767 0000006 JSR PC, CLOCK. INIT ; 
016767 0000006 0000006 MOV CMO. SLOT. CMD. REF : 
004767 0000006 JSR PC,ON. LINE ; 
006000 ROR RO 
103020 BCC 15$ 














: Routine Size: 
3; Meximum steck 


00000 004767 


CZRCFCO RC2S FR END TEST 
TEST SECTION 


000001 000000G 


177270 


182 words, 


177220 


143: 


15$: 


19%: 


: Routine Base: 
depth per invocetion: 16 wor 


114:; 


. SBTTL 





L5 


27-Mar-1985 15:27:26 
27-Mar-1985 13:28:18 


55 

63 

AZT.READY .ERR 
ee 
PC ,DECODE 
@1,RETRIES 
024 ,SP 

16$ 

acLK.CSR 
0144, -(SP) 
PC.BL SMUL 


RO, (SP) 
CLK .HERTZ, -(SP) 
4 tad 


( 
CLK HERTZ, -( SP) 
PC, .BLSOIV 


024,SP 

++ | ahaaeas 
PC,D0.RETRIES 
NUM.RETRIES 
19% 

PASSO 

es 


(SP )- 
PC 


ACSCODE - 11646 
ds 


714 TEST SECTION 


VAX-1 
USER$ 


SP, 





1 Bliss-16 V4.0-57 
1: (AZTEC. CZRCFC)ZRCFC3.616;4 — 


SEQ 0270 
P 


oe 14) 
3355 


3357 
3359 


3354 


3363 
3366 


3368 


3369 


3307 
3372 
3374 
3376 
3298 
3261 


- —— 
| M5 
, SEQ 0271 

ZRCFRS CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 Pege 76 
vo3.0 TEST SECTION 27-Mar-1985 13:26:18 USER$1: (AZTEC. CZRCFC JZRCFC3.B16;4 (14) 
000000 i$: JSR PC, $114 ; 3379 
000004 104466 TRAP 66 

000006 ROR RO 

000010 103773 BLO i$ 

000012 000207 RTS PC 


; Routine Size: 6 words, Routine Bese: ACSCODE - 12422 
; Maximum steck depth per invocation: 2 words . 


s 3382 1 '<BLF /PAGE> 
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SEQ 0272 
F Rg FR TEST 27-Mer-1985 15:27:28 VAX-11 Blies-16 77 
st Scie 57-Mer-1985 13:28:18 USERS: AZTEC CZRChe ]ORCFCS, B16;4 cas) 
o 
BGNTST; 


See 

! TEST @15 - SEQUENTIAL SEEK AND VERIFY TEST 

, 

| DESCRIPTION: 
THIS TEST BRINGS RC2S5 CONTROLLER AND UNIT ONLINE AND READY TO ACCEPT 
MSCP DUP COMMANDS. 


THIS IS A SINGLE SURFACE TEST AND IS DONE ON TOP SURFACE. THE OPERATOR 
CAN SELECT BOTTOM SURFACE ALSO. 


A FAILURE REPORT INCLUDES ve Fading. TA, CONS TRACK AND DESIRED 


TRACK, AFTER REPORTING T OGRAM WILL ABORT CURRENT 
SEEK AND WILL JUMP T0 REVER SE SEEK, 


lebel 

BLOCK], 

BLOCK2; 
if .SWP_TRACE then PRINTF (08M21); ! TEST 15 
NUM_RETRIES = ZERO; 


while (.NUM_RETRIES lequ .SWP_RETRIES) do 


nn 
TIP * 45 
+ GET AZTEC READY FOR OPERATION 


if AZTEC_READY () ! IF FAILURE REYORT ERROR 
then F 
in 
ERaor (52, AZT_READY_ERR, 0); 
if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
RETRIES + TRUE; ! SET RETRIES FLAG 
end 
else 
1 PREPARE Pon REE” Cor 
; BYTE COUN” - ZERO ! SET BYTE COUNT 10 ZERO 
BuF_DESCRPTR + Zé ' CLEAN THE BUFFER 


: FORWARD DIRECTION SEEK 


! USE STARTING TRACK OF 0 
! USE ENDING TRACK GF 820 


ee 

tr 
be 
| and 
a ie] 
mabe 
mm 
oo 
ee 


' THE OPERATOR 
Y THE OPERATOR 


< 
fo) 
w 


SF SE SF SE SF SF Ge SF SF GF SF GF SF OF SS GH GF GF GF GH SF SE GF GF GF OF GF GF SF GF Gs OF Gs GF OF OF OF OF Os OF Gs OF Oe Os Gs OF OF OF 6 OF Os 66 Ge Os Os 66 O8 
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CZRCFCO RC2S FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss 579 
TEST SECTION 27-Mar-1985 13:28:18 USERN: CAZTEC. CZRCFCIZRCFCS. B16;4 


 SIZ_LBN + 31 INCREMENTS THE TRACK NUMBER BY 1 
LON_ST = (.SWP_STARTS.SIZ LBN); 1 FIND STARTING LBN 
LBN7ED = (.SWP7END®.SiZ_LON), i FINO ENDING LBN NUMBER 
LBN7SZ = .817_CBN i TRACK INCREMENTING SIZE 
t LON, ST ISTHE DEETRED LON TO SEEK. THIS WILL BE USED BY 
READ_ CMD. 
begin 
while TRUE do 1 DO SEEK FROM STARTING TRACK 
begin i TO ENDING TRA 
CMOLREF = .LBN.ST; i PUT LON IN CMD.LREF 


le READ_CMD () ! ISSUE A SEEK COMMAND 
peagio ! IF ERROR, REPORT 
ERRDOF (53, SK_FOR_ERR 0); 
PRINTB (FMT9, .SWP_START, .SWP_END, .LBN_ST); 
if .RET_STATUS then DECODE (); ! DECODE STATUS OF READ_CMD 
RETRIES = TRUE; 
lesve BLOCK1; 
end 

else 
begin 
if .LBN_ST eqlu .LBN_ED then exitloop; 


a * .LBN_ST + .LBN_SZ; ! INCREMENT THE TRACK NUMBER BY 1 
eng; 


end; 
, end; 
REVERSE DIRECTION SEEK 
: SUAP LEN NUMBERS SUCH THAT LBN_ST CONTAINS THE HIGHEST NUMBER LBN 


!T 
TEMP = 
BN. AY 2 “Sie START*.SIZ_LBN); ! RESTORE ENDING TRACK NUMBER 
BLOCK2 : : 
“begin 
while TRUE do ' DO SEEK FROM HIGHEST LBN 
! TO LOWEST LBN 
oe REF = .LBN_ST; ! PUT LBN IN’ CMD+LREF 
if a READ_CMD () ! ISSUE A SEEK COMMAND 
en 


soe 
ERADF (54, SK_REV_ERR, 0); 
PRINTB (FMT9, .SWP_END, .SWP_START, .LBN_ST); 


if ,RET_STATUS then DECODE (); ! DECODE STATUS OF READ_CMD 








SEQ 0275 7 
915) 








C6 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 1 Bliss-16 V4,0-579 _ ay 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER: 1:(AZ conch e J2RCFC3.816,4 (15) 
’ 3496 8 
; 3497 8 RETRIES = TRUE; 
; 3498 8 leave BLOCK2; 
: 3499 8 end 
3 3500 7 else 
; 3501 8 begin 
3 3502 8 
; 3503 8 if .LBN_ST eqlu .LBN_ED then exitloop; ! WHEN ALL SEEKS DONE EXIT 
H 
; 3505 8 _LBN_ST = .LBN_ST - .LBN_SZ; ! DECREMENT TRACK NUMBER BY 1 
3 3506 7 end; 
3 3507 7 
; 3508 6 end; 
; 3509 6 
3 3510 5 end; 
3 3511 4 end; 
3 3512 4 
: 3513 4 if (.RETRIES) then DO_RETRIES (); 
3 
; 3515 ‘ if (.NUM_RETRIES eqlu ZERO) then exitloop; 
; 3517 3 end; 
3 3518 3 
3 3519 3 return; 
; 3520 1 ENDTST; 
.SBTTL $115 TEST SECTION 

000000 032767 000001 0000006 $715: BIT 01, SWP. TRACE ; 3411 
000006 001407 BEQ $ 
000010 012746 0000006 MOV eoene1 -(SP) 
000014 012746 000001 MOV . (SP) 
000020 010600 MOV $P'RO ; SP,« 
000022 104417 TRAP =-_-:17 
000024 022626 CMP (SP)+,(SP)-+ 
000026 005067 0000006 1$: CLR NUM. RETRIES ; 3413 
000032 026767 0000006 0000006 2$: CMP NUM. RETRIES, SWP.RETRIES ; 3415 
000040 101401 BLOS 3% 
000042 000207 RT c 
000044 012767 000017 0000006 3$;: MOV #17,TIP ‘ 3417 
000052 004767 0000006 JSR PC, AZTEC. READY ; 3420 
000056 006000 ROR RO 
1000060 103016 BCC S$ 
000062 104455 TRAP 55 ; 3423 
0000 000064 .WORD 64 

0000006 “WORD AZT.READY.ERR 
000070 000000 “WORD 
000072 032767 000001 0000006 BIT $1,RET. STATUS ; 3425 
000100 001402 BEQ 4$ 
000102 004767 000000C JSR PC ,DECODE 
000106 012767 000001 0000006 4$: MOV #1, RETRIES ; 3427 
000114 000575 BR 14$ ; 3420 
000116 005067 0000006 S$: CLR BYTE. COUNT ; 3432 
000122 005067 (000006 CLR BUF . DESCRPTR : 3433 
000126 016746 00000G MOV SWP. START, -(SP) ; 3440 
000132 016746 0000006 MOV SIZ.LBN, -(SP) 
000136 004767 900000G JSR PC, BLS$MUL 











012767 





a 5 £4 FR END TEST 
TEST SECTION 


000010 
000001 000000G 


000000G 
000001 000000G 


6$: 


7$: 
8$: 


9$: 


10$: 


11$: 










D6 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


RO,LBN. ST 
SWP.E 

SI 
pC 


SEQ 0275 
P 80 
(15) 


VAX-11 Bli 
USER$1:(A 


i99-1 579 
ZTEC. CZRCECIZRCFCS, B16;4 





At 
an CBN, 
aN LN, 
SEN ae AD CHO 
RO 
8$ 
55 
65 
sk. .FOR.ERR 
LBN. ST, (SP) 


0,SP 
#1, RET. STATUS 
PC ,DECODE 
#1 ,RETRIES 
LBN.ST,LBN.ED 
L6N.$Z,LBN.ST 
6$ 


66 
ain 


LON. ST, (SP) 
SWP| START, -(SP) 
SWP END, -(SP) 
OFMT9, -(SP) 


04,-(SP) 
RO 


0,SP 
#1,RET.STATUS 
11% 


PC ,DECODE 
#1,RETRIES 





E6 





SEQ 0276 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 Page 81 
vo3.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1:(AZTEC.CZRCFC JZRCFC3.616;4 (15) 
000462 000410 BR 13$ ; 3491 

026767 000000G 000000G 12$: CMP LBN.ST,LBN.ED ; 3503 
000472 001404 BEQ 13$ 
000474 166767 000000G 000000G SuB LBN.SZ,LBN.ST ; 3505 
000502 000725 BR 10$ ; 3485 
000504 062706 000010 13$: ADD #10,SP $ 3430 
000510 032767 000001 000000G 14$; BIT 01, RETRIES ; 3513 
000516 001402 BEQ 
000520 004767 000000G JSR PC,D0.RETRIES 
000524 005767 000000G 15$: TST NUM. RETRIES $ 3515 
000530 001402 BEQ 
000532 000167 177274 JMP es 
000536 000207 16$: RTS PC 3 3380 
; Routine Size: 176 words, Routine Base: ACSCODE + 12436 
; Maximum stack depth per invocation: 10 words 

-SBTTL TIS TEST SECTION 

000000 004767 177234 T15:: 
000000 1$: JSR PC,$715 3 3519 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ACSCODE + 13176 


; Maximum stack depth per invocation: 2 words 


¢ Ce & !<BLF /PAGE > 
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SEQ 0277 


ZRCFRS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4 Pp 5 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. Conte IZREFCS. B16;4. mead BY; 
3 352 ' 

3 3258 : BGNTST; 

>; 3524 3 

> 3525 3 tes 

; 3526 3 ! TEST @16 - SAWTOOTH SEEK AND VERIFY TEST 

a 

; sec8 ; 7 DESCRIPTION: 

; 3530 3 ' THIS TEST BRINGS RC25 CONTROLLER AND THE UNIT ONLINE AND READY 

; 3531 3 TO TAKE MSCP COMMANDS. 

> 3533 3 ‘ STARTING WITH THE USER SPECIFIED BEGINNING TRACK AND INCREMENTING 
; 3534 3 ‘ THROUGH EVERY TRACK IN THE SELECTED RANGE , THIS TEST WILL PERFORM A 
; 3535 3 : SEEK TO THE SELECTED TRACK AND THEN A SEEK BACK TO THE BEGINNING 
; 3536 3 : N ALL TRACKS HAVE BEEN COVERED, IT WILL DO THE SAME 

; 3537 3 : Oresatzon IN THE REVERSE DIRECTION WITH THE ENDING TRACK AS THE 
ag boi 

; 3540 3 ' THIS IS A SINGLE SURFACE TEST AND IS DONE ON TOP SURFACE. 

; 334) 3 THE OPERATOR CAN SELECT BOTTOM SURFACE ALSO. 

H 

; 3543 3 : ERROR REPORTS WILL STATE STARTING, ENDING AND DESIRED TRACKS. 

; 3544 3 ; IF THERE WAS AN ERROR THE TEST WILL BE ABORTED UNLESS THE OPERATOR 
; 3545 3 ‘ HAS SELECTED FOR RETRIES. 

; 3546 3 ‘ 

3 3547 3 i. 

> 3548 3 

3 3549 3 locel 

; 3550 3 LBN_SA; 

3 3551 3 

; 3552 3 abel 

; 3553 3 BLOCK1, 

; 3554 3 BLOCK2; 

; 3555 3 

3 3336 3 if .SWP_TRACE then PRINTF (DBM22); ! TEST 16 

3 gene ; NUM_RETRIES = ZERO; 

; 3560 3 while (,NUM_RETRIES lequ .SWP_RETRIES) do 

3 3561 4 begin 

3 3562 4 

: 3363 4 ' GET AZTEC. READY FOR OPERATION 

; 3565 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 
; 3566 4 then 

; 3567 5 beoin 

; 3368 2 ERDF (55, AZT_READY_ERR, 0); ' 

; 3370 2 if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
H 

; 3572 5 RETRIES = TRUE; ! SET RETRIES FLAG 

; 3573 5 end 

; 3574 4 else 

A 3575 5 

; 3876 § ~~! PREPARE e Pon READ_CMD 

; 3577 § BYTE_COUNT = ZERO; ! SET BYTE COUNT TO ZERO 
; 3578 5 BUF _DESCRPTR = ZERO; ! CLEAN THE BUFFER 


— 
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ZRCFBS CZR ree RC25 FR END TEST 27-Mer-198 
0 TEST SECTION 27-Mar-1968 





SEQ 0278 
liss-16 Page 83 
: (AZTEC. CoRCECIZRCFCS. B16;4_ 8 16) 


viMn 
To 
wun 


' 

: FORWARD DIRECTION SEEK 

! USE STARTING TRACK OF 0 OR AS SPECIFIED BY THE OPERATOR 

! USE ENDING TRACK OF 820 OR AS SPECIFIED BY THE OPERATOR 

! LBN_SZ = 31_ INCREMENTS THE TRACK NUMBER BY 1 
LBN_ST .SWP_S FIND STARTING LBN 
LBN_ED = (.SWP_END*.SIZ_LBN); FIND ENDING LBN NUMBER 

1: ‘ LBN TRACK la gry bay SIZE 
io. _— ENT LBN 


(Thee cecese 


LBN N_ST; 
! LBN_ST IS THE DESERED ten TO SEEK. THIS WILL BE 
1 READ_ CMD. 


BLOCK1: 
“pegi in 


om * TRUE do 
RS ST = .LBN_SA; 
incru COUNT from 0 to 1 do 
en8 eR REF = .LBN_ST; 
. “wats () 


DO SEEK FROM STARTING TRACK 
TO ENDING TRACK BY INCREMENTING 
ONE TRACK AT A TIME. 


ISSUE TWO SEEK COMMANDS 

ONE TO THE CURRENT TRACK 

PUT LBN IN CMD_LREF 

AND THE SECOND TO THE STARTING 
TRACK EVERY TIME you INCREMENT 
begin TRACK NUMBER. IF FAILURE 

ERRDF (56, SK_FOR_ERR, 0); WILL BE REPORTED WITH 

PRINTB (FMT9, .SWP_START, .SWP MEND, .LBN_ST); ! ERROR INFO. 


if .RET_STATUS then DECODE (); ! DECODE STATUS OF READ_CMD 
RETRIES = TRUE; ! TURN ON RETRIES 
> BLOCK1; ! ABORT IF ERROR OCCURED 
en 

lse 
LBN_ST = (.SWP_START*.SIZ_LBN); 

end; 

if .LBN_SA eqlu .LBN_ED then exitloop; 


a = .LBN_SA + .LBN_SZ; ! INCREMENT TRACK NUMBER BY 1 
eng; 


end; 
! REVERSE DIRECTION SEEK 


G 
¢ 
e 
SWAP LN NUMBERS SUCH THAT LBN_ST CONTAINS THE HIGHEST NUMBER LBN 
: LBN_SA = .LBN 

LBN_ED = (. to OF ARTs. SIZ_LBN); ! RESTORE ENDING TRACK NUMBER 
BLOCK2 : 

begin 


while TRUE do ! DO SEEK FROM HIGHEST LBN 
begin ! TO LOWEST LBN 


Se SP Ge Se SF Ge Se SF Ss GF SH HH GF GF Ge GF GF SF GS GF GF Gs Gs GF GF Gs Be GH OF Gs GF Gs GH OF GF GF Ge Ge GH Gs Gt GF GF OF Ge Os Os Os OF OS 6s Os Oe 62 Ge oe os 
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SEQ 0279 


ZRCFB3 CZRCFCO Rtas FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 Page 84 
vo3.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCFCJZRCFC3.616;4 (16) 
:; 3636 7 LBN_ST = .LBN_SA; 
’ 3637 7 
; 3638 7 sonal > COUNT from 0 to 1 do 
t 3639 8 ore 
: 3040 4 CMD_REF = .LBN_ST; ! PUT LBN IN CMD_LREF 
3 
; 3642 8 if — CMD () ! ISSUE A SEEK COMMAND 
3 3643 8 the 
3 3644 9 begin 
;: 9665 9 ERROF (57, SK_REV_ERR, 0); 
; 3646 3 PRINTB (FMT9, .SWP_END, .SWP_START, .LBN_ST); 
: se ; if ,RET_STATUS then DECODE (); ! DECODE STATUS OF READ_CMD 
; 3650 9 RETRIES = TRUE; ! TURN ON RETRIES 
; 3651 9 leave BLOCK2; ! ABORT REVERSE SEEK 
; 3652 9 end 
3 3653 8 else 
3 seze : LBN_ST = (.SWP_END*.SIZ_LBN); § STARTING TRACK 
; 3656 7 end; 
3 3657 7 
: +t4 : if .LBN_SA eqlu .LBN_ED then exitloop; 
; 3660 7 LBN_SA = .LBN_SA - .LBN_SZ; ! NEXT TRACK IN SEQUENCE 
>; 3661 6 end; 
s 3662 6 
$ 3663 5 end; 
$ 3664 4 end; 
3 3665 4 
3 rr] : if (.RETRIES) then DO_RETRIES (); 
$ ens : if (.NUM_RETRIES eqlu ZERO) then exitloop; 
3 3670 3 end; 
; 3671 3 
: 3672 3 return; 
; 3673 1 ENDTST; 
.SBTTL $1716 TEST SECTION 
000000 004167 000000G $716: JSR R1, $SAVE2 
032767 000001 000000G BIT 01,SWP. TRACE 
000012 001407 BEQ 
012746 000000G MOV @D0BM22, -( SP) 
000020 012746 000001 MOV #1,-(SP) 
24 010600 MOV - RO 
104417 TRAP 
022626 CMP ep)., (SP )- 
005067 000000G 1$: CLR NUM. RETRIES 
026767 000000G 000000G 2s CMP NUM. RETRIES,SWP.RETRIES 
101401 BLOS 3$ 
000207 RT C 
012767 000020 000000G 3$: MOV #20,TIP 
004767 000000G JSR PC,AZTEC.READY 
006000 ROR RO 
103017 BCC 5$ 
















16 


SEQ 0280 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 11 Bliss-16 85 
TEST SECTION 27-Mar-1985 13:28:18 YSERA: (AZTEC. CzRcre IZRCFCS, B16;4 (16) 
104455 TRAP ss SS ; 3568 
000067 .WORD 67 
“WORD AZT. READY.ERR 
000000 WORD 
032767 000001 0000006 BIT #1,RET. STATUS ; 3570 
001402 BEQ 4$ 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 4s; MOV #1. RETRIES : 3572 
000167 000456 JMP 163 ; 3565 
005067 0000006 S$: CLR BYTE. COUNT ; 3577 
005067 0000006 CLR BUF . DESCRPTR ; 3578 
016746 0000006 MOV WP. START, -(SP) ; 3585 
016746 0000006 MOV ot: LBN, -(SP) 
004767 0000006 JSR PC, BL $MUL 
010067 0000006 MOV RO.LBN.ST 
016716 000000G MOV SWP END, (SP) ; 3586 
016746 0000006 MOV S1Z.LBN, -(SP) 
004767 0000006 JSR PC. BL $HUL 
010067 0000006 MOV ED 
016767 000000G 0000006 MOV erst oan LON. SZ : 3587 
016702 0000006 MOV LON.ST,R2 ; *,LBN.SA 3588 
010267 0000006 6$: MOV Re, LBN: ST ; LON.SA,#* 3596 
005001 CLR ; COUNT 3598 
016767 0000006 0000006 7$: MOV aN. ST, CMD. REF ; 3600 
004767 000000G JSR PC. READ. CMD ; 3602 
103034 BCC 
104455 TRAP 3s ; 3605 
000070 .WORD 70 
"WORD SK.FOR.ERR 
000000 "WORD 0 
016716 0000006 MOV LBN.ST (SP), ' 3606 
016746 000000G MOV SWP .END, -(SP) 
016746 000000G MOV SUP. START -(§P) 
012746 0000006 MOV . (SB) 
012746 000004 MOV oan Tee 
010600 MOV SP,RO ; SP,* 
104414 TRAP 14 
062706 000010 ADD 910,SP 
032767 000001 0000006 BIT 01,RET. STATUS ' 3608 
001402 BEQ 8$ 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 8S: MOV @1.RETRIES ; 3610 
000423 BR 10$ ; 3604 
016716 0000006 9$: MOV SWP. START, (SP) ; 3614 
016746 000000G MOV 51Z.LBN, -(SP) 
004767 0000006 JSR PC, BL $MUL 
010067 0000006 MOV RO.LBN.ST 
005726 TST (SP) Se 
005201 INC ; COUNT 3598 
020127 000001 CMP at. 01 ; COUNT, + 
101720 BLOS 7$ 
020267 0000006 CMP R2,LBN.ED ; LBN.SA,« 3618 
001403 BEQ 1 
066702 0000006 ADD LBN.SZ,R2 ; *,LBN.SA 3620 
707 BR Se 


*,LBN.SA 





000 6 
016702 0000006 10$; MOV LBN.ED,R2 











J6 


SEQ.0 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-1 579 a 

TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC. CZRCECIZRCFCS. B16;4 (16) 
016716 0000006 MOV SUP START (SP) , 3630 
016746 0000006 MOV ,- CSP 

0000006 JSR ‘ 
010067 0000006 MOV RO,LBN.ED 
010267 0000006 11$ MOV ‘LON. ST ; LBN.SA,* 3636 

1 CLR ; COUNT 3638 
016767 0000006 0000006 12$ MOV LON, ST, CMD. REF ; 3640 
004767 0000006 JSR AD. ; 3642 
000 ROR 
103034 BCC 14$ 
104455 TRAP 3s 55S ; 3645 
000071 .WORD 71 
“WORD SK.REV.ERR 
000000 “WORD 0 
016716 000000G MoV LON.ST,(SP) : 3646 
016746 0000006 MOV Sup. “START -(SP) 
016746 0000006 MOV uP. END 
012746 0000006 MOV OFMT Oe spS 
012746 000004 MOV HAE ) 
MOV P, ; SP, 

104414 TRAP 
062706 000010 OD #10,SP 
032767 000001 0000006 BIT 61, RET. STATUS : 3648 
001402 BEQ 13$ 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 13$: MOV 01 RETRIES ; 3650 
000423 BR 153 ; 3644 
016716 0000006 14%: MOV SwP.END, (SP) ; 3654 
016746 0000006 MOV 51Z.LBN, -(SP) 
004767 0000006 JSR PC, BL $MUL 
010067 000006 MOV RO,LBN.ST 
005726 ; TST (SP)« 
005201 INC Ri ; COUNT 5 3638 
020127 000001 CMP Ri, ol ; COUNT, « 
101720 BLOS 128 
020267 0000006 CMP R2,LBN.ED ; LBN.SA,* 3658 
001403 BEQ 
166702 0000006 SUB LN. SZ,R2 *,LBN.SA 





06 000010 15$: ADD #10,SP 
032767 000001 0000006 16$: BIT 01, RETRIES 
001402 BEQ 17$ 
004767 0000006 JSR PC,DO.RETRIES 
005767 0000006 17$: = ‘TST NUM. RETRIES 
001402 BEQ 8$ 
000167 177206 2$ 
000207 18$: RTS PC 


; Routine Size: 205 words, Routine Base: ACSCODE + 13212 
; Meximum steck depth per invocation: 13 words 


.SBTTL 116 TEST SECTION 


004767 177142 T16:: 
1$; JSR PC, $716 












IK6 


SEQ 0282 








ZRCFRS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-57 Page 87 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1:(AZTEC.CZRCFC )ZRCFC3.616;4 (16) 
000004 104466 TRAP 66 

000006 006000 ROR RO 

000010 103773 BLO 1$ 

000012 000207 RTS PC 

; Routine Size: 6 words, Routine Base: ACSCODE + 14044 


; Maximum steck depth per invocation: 2 words 


; 3674 '<BLF /PAGE> 





f= 
oa SEQ eg | 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Blis 88 
v03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZT ce oncée 2RCrCS. B16;4 0017) 
3 3675 1 : 

; 367% 3 BGNTST; 

3 3677 3 

5 3678 3 Yee 

: 3679 : TEST @17 - CONVERGING/DIVERGING SEEK AND VERIFY TEST 

Hy 

: 3681 3 DESCRIPTION: 

3 

; 3683 3 ; THIS TEST FIRST BRINGS RC25 CONTROLLER AND UNIT ONLINE SO THAT 

: 3684 3 MSCP COMMANDS CAN BE ISSUED. 

; 3686 3 ' THIS TEST PERFORMS SEEKS 10 THE BEGINNING TRACK, THEN TO THE ENDING 
; 3687 3 ' TRACK, THEN TO THE BEGINNING TRACK + 1, ENDING TRACK - 1, BEGINNING 
; 3688 3 ‘ TRACK + 2, ETC. UNTIL THE TRACKS CONVERGE AND THEN DIVERGE AGAIN 
: 3689 3 BACK TO THE BEGINNING AND ENDING TRACKS. 

> 3691 3 ‘ THIS IS A SINGLE SURFACE TEST AND IS DONE ON TOP SURFACE. THE 

: 3692 3 OPERATOR CAN SELECT BOTTOM SURFACE ALSO. 

; «43694 «3 ‘ ERROR REPORTS WILL INCLUDE STARTING, ENDING AND DESIRED TRACKS. 

> 3695 3 : IF FAILURE IN SEEK THE TEST WILL BE ABORTED UNLESS THE OPERATOR 

; 36% 3 : SELECTS RETRIES. 

> 3697 3 : 

> 3698 3 ‘. 

3 3699 3 

; 3700 3 locel 

; 3701 3 LON. SA ! START OF LBN 

; 3702 3 “HI; ! MID POINT FOR LBN 

; 3703 3 

3 3704 3 abel 

; 3705 3 BLOCK1, 

3 3706 3 BLOCK2; 

: 3707 3 

; 3708 3 NUM_RETRIES = ZERO; 

; 3710 3 if .SWP_TRACE then PRINTF (DBM23); ! TEST 17 

» sr 5 while (.NUM_RETRIES lequ .SWP_RETRIES) do 

3 3713 4 in 

; 3714 4 TIP = 17; 

; 3715 4 ! GET AZTEC READY FOR OPERATION 

3 

; 3717 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 
; 3718 4 then 

FH 3719 5 bear 

; 3720 2 ERROF (58, AZT_READY_ERR, 0); ' 

; 3722 : if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
3 

; 3724 § RETRIES = TRUE; ! SET RETRIES FLAG 

; 3725 § end 

3 3726 4 else 

; 3727 4 BLOCK2 : 

; 3728 5 begin 

; 3729 § ! PREPARE FOR READ_C 

; 3730 § BYTE COUNT = RO; ! SET BYTE COUNT TO ZERO 
; 37313 § BUF ESCO ez 2 ere 0; ! CLEAN THE BUFFER 


— 








M6 


SEQ 0284 


ZRCFRS CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bliss 0-579 Page 89 
v03.0 TEST SECTION 27-Mer-1985 13:28:18 USER$S1: tAZTEC. CORCEC 12RCFC3. 816;4 (17) 
: 3732 5 H 

3 $733 2 : CONVERGING SEEK 

3 . 

is tn F ' USE STARTING TRACK OF 0 OR AS SPECIFIED BY THE OPERATOR 

s 3736 5 : ACK OF 820 OR AS SPECIFIED BY THE OPERATOR 

s pes * SIZ_LBON = 3] INCREMENTS THE TRACK NUMBER BY 1 

s 3738 5 _ST © (.SWP_STARTe.SIZ LBN); * FIND STARTING LON 

; 3739 5 BN_ED © (.SkP_ENDe.S1Z_L6N); ' FIND ENDING L6N NUMBER 

; 3740 5 LON_SZ = .SIZ_LBN; * TRACK eee SIZE 

5s peal & BN_SA = .L6N_ST ' LOAD CURRENT 

:; 3742 5 LON_MID = (.LON_ ED - ,LON_ST) ‘ ate ae BETWEEN STARTING & ENDING 
: 3743 5 ' LON_ST IS THE DESIRED LON 10 SEEK. thts WILL BE USED B 

>; 3744 5 ' READ_CMD. 

» ses 3 BLOCK] : 

; Ling : begin 

3 ‘ 

s 3748 6 wrile .LBN_MID geaqu .LBN_SA do ' DO SEEK FROM STARTING TRACK 

>; 3749 7 ben's ' 10 ENDING wg BY INCREMENTING 

F e750 Ms LBN_ST = .LBN SA; ! ONE TRACK AT A TIME, 

3 

Bree oF incru COUNT from 0 to 1 do H eB A SEEK COMMANDS 

s 3753 6 bea'n $ ONE 10 THE CURRENT TRACK 

3 He 3 ; CMD _REF = .LBN_ST; $ PUT Lon. IN CMD_LREF 

3 

; 3756 8 if READ_CMD () ' AND THE SECOND TO THE MIRROR JrGE 
s rar then H Hes EVERY TIME you INCREMENT 

3 758 9 1) * TRACK NUMBER. IF FAILURE 

; 3759 9 € (59, SK FOR ERR, 0); ! aut BE REPORTED WITH 

3 3760 3 PRINTB (FMT9, .SWP START, .SWP “END, .L6N_ST ! ERROR INFO. 
3 

3 4 : if ,RET_STATUS then DECODE (); * DECODE STATUS OF READ_CMD 
3 

; 3764 9 RETRIES = TRUE; 

s 3765 9 leeve BLOCK1; $ ABORT IF ERROR OCCURED 

; 3766 9 eng 

3 3767 8 Ise 

; 3766 8 L6N_ST = .L.BN_ED; 

3 3769 8 

; 3770 7 end; 

: 3771 7 

5 wre LBN_SA = ..6N_SA + .LBN SZ; * INCREMENT TRACK NUMBER BY 

» Bete ¥ LON_ED = .L6N_ED - .LBN SZ; $ MIRROR IMAGE OF CURRENT TRACK 

; 3774 6 end; 

3 3775 6 

; 377% 5 end; 

. owe H 

s 3778 5 * DIVERGING SEEK 

3 3779 5 : 

s 3780 §$ LBN_SA = .LBN_MID; ' START FROM MID TRACK LBN 

; tyes 2 LBN_ED = .L.BN_MID; * START FROM MID TRACK LBN 

3 

3 2a £ while .LBN_SA lequ .L.BN_MID do ' DO SEEK FROM HIGHEST LBN 

° 2 

s 3785 6 begin ' 10 LOWEST LBN 

3 3786 6 LON ST = .LBN SA; 

3 3787 6 

3 788 «66 inceu COUNT from 0 to 1 do 


— 








[----—— 





N6 


SEQ 0285 | 


ZRCFAS CZRCFCO Rc2s FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliee-16 V4.0-579 ege 90 
v03.0 TEST SECTI 27-Mer-1985 13:28:18  USER$1:(AZTEC.CZRCFCJZRCFC3.616;4 (17) 
3 3789 7 begin 
: 3790 ? CMD _REF = .LBN_ST; ! PUT LBN IN CMO_LREF 
; 
; 3792 7 if READ_CMD () ! ISSUE A SEEK COMMAND 
: 3793 7 then 
3 3794 8 begin 
; 3795 8 ERROF (60, SK_REV_ERR, 0); 
~ 3796 : PRINTB (FMT9, .SWP START, .SWP_END, .LBN_ST); 
: 3798 8 if .RET_STATUS then DECODE (); ! DECODE STATUS OF READ_CMD 
; 
; 3800 8 RETRIES = TRUE; 
; 3801 8 leave BLOCK2; ! ABORT REVERSE SEEK 
3 3802 8 end 
; 3803 7 lee 
; 3804 7 LON_ST = .LBN_ED; ! STARTING TRACK 
3 3805 7 
; 3806 6 end; 
; 3807 6 
; 3808 6 LON_SA = .LBN_SA - .LBN_SZ; ! NEXT TRACK IN SEQUENCE 
; 3809 6 LON_ED © .LBN_ED + :LBN 52; ! MIRROR IMAGE TRACK 
3 3810 5 end; : 
3 3611 5 
3 38i2 4 end; 
3 3613 4 
3 3814 4 ' 
s 3815 4 t 
: 3816 ‘ if .RETRIES then DO_RETRIES (); 
; 
; 3818 4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
; 
3 3820 3 end; 
3 3621 3 
; 3822 3 re. 
; 3823 1 ENDIST; 
.SBTTL $717 TEST SECTION 
$717: JSR R1, $SAVES 
CLR NUM. RETRIES 
617 61, SWP. TRACE 
BE i$ 
MOV @08N23, -(SP) 
MOV #1, -(5P) 
mOV SP, 
TRAP 17 
chp (SP)+,(SP)- 
1s: CMP NUM. RETRIES, SWP_RETRIES 
BLOS 3! 
ats 
2s: MOV @21,7 
JSR pe Aztec. READY 
ROR 86 
8c ry 
55 








72 
AZT READY .ERR 








B/ 


SEQ 02 

CZRCFCO RC2S FR END TEST 27-Mar-1985 15:27:28 1 Bliss-16 579 Pogo” 91 
TEST SECTION 27-Mar-1985 13:28:18 USER: $1: (AZTEC. Conte IZRCFCS, 616;4 (17) 

.WORD 0 
000001 0000006 err #1, RET. STATUS ' 3722 
0000006 JSR PC, DECODE 
000001 0000006 34; MOV #1, RETRIES ' 3724 
000442 JMP 153 ' 3717 
0000006 4$: CLR BYTE. COUNT ; 3730 
0000006 CLR BUF . DESCRPTR ; 3731 
0000006 MOV SUP. START, -(SP) ; 372 
0000006 MOV 51Z.L6N, -¢ 
0000006 JSR PC, BL 
0000006 MOV RO, LON. ST 
0000006 MOV SWP END, ( : 3739 
0000006 MOV S1Z.LBN, -(SP) 
0000006 JSR PC 
0000006 MOV RO, LBN.E 
0000006 0000006 MOV S12.L6N,LBN. SZ : 3740 
0000006 MOV LON: ST,R2 ; *,LBN.SA 3741 
0000006 MOV LON.ED, (SP) ; 3742 
0000006 SUB LBN.ST.(SP) 
000002 MOV 62, -(SP) 

JSR PC {BL $DIV 

MOV RO.R3 ; *,LBN.MID 

S$: cH R3.R2 ; LBN.MID,LBN.SA 3748 

0000006 MOV Re, LON. ST ; LBN.SA,* 3750 

CLR R1 ; COUNT 3752 
0000006 0000006 6$: MOV LON. ST. CMD . REF ; 3754 
0000006 JSR PCR EAD. CMO ; 3756 

BCC 

TRAP gs ; 3759 

.WORD 73 

"WORD SK.FOR.ERR 

“WORD 
0000006 MOV LBN.ST,(SP) ; 3760 
0000006 MOV SWP END, -(SP) 
0000006 MOV SWP. START, -(SP) 
0000006 MOV @FMT9, -(SP) 
000004 MOV 04,-(SP) 

MOV SP;RO ; SP, 

TRAP 3s «14 
000010 ADD 010,SP 
000001 0000006 IT #1,RET.STATUS : 3762 
0000006 JSR PC, DECODE 
000001 0000006 7$: HOV #1,RETRIES : 3764 

H 

0000006 0000006 8s: MOV LBN.ED,LBN.ST ; 3768 

INC Rl ; COUNT 3752 
000001 CMP Ri, 01 ; COUNT, 

BLOS 6% 
0000006 ADD LBN.$Z,R2 ; *,LBN.SA 3772 
0000006 0000006 SUB LEN. .5Z,LBN.ED ; was 

é 
94: MOV R3,R2 ; LBN.MID,LBN.SA 3780 

0000006 MOV R3,LBN.ED ; LBN.MID,¢ 3781 











C7 








SEQ 0287 
CZRCFCO C25 FR END TEST 27-Mar-1985 15:27:28 lies-16 V4.0-579 ~—- 
TEST SECTI 27-Mar-1985 13:28:18 Veen: AZTEC. CoRcee IZRCFC3. B16;4 (17) 
3 10$: CMP R2,R3 ; LBN.SA,LBN.MID 3783 
101063 BHI 14 
0267 0000006 MOV R2,LBN.ST ; LBN.SA,* 3786 
005001 CLR Ri ; COUNT 3788 
016767 0000006 0000006 11$: MOV LON.ST, CMO. REF ; 3790 
004767 0000006 JSR PC, READ. CMD ; 3792 
006000 ROR 
103034 BCC 134 
104455 TRAP 55 , 3795 
000074 . WORD 
"WORD aK. REV.ERR 
000000 “WORD 
016716 0000006 MOV LON.ST, (SP) : 3796 
016746 0000006 MOV SWP END, -(SP) 
016746 0000006 MOV uP. START -(SP) 
012746 0000006 MOV ° (SB) 
012746 000004 MOV oa. cep 
010600 MOV SP.RO ; SP,« 
104414 TRAP = (14 
062706 000010 ADD $10,SP 
032767 000001 0000006 BIT @1,RET. STATUS : 3798 
001402 BEQ 12$ 
004767 0000006 JSR PC ,DECODE 
012767 000001 0000006 12$: MOV #1 .RETRIES : 3800 
000415 BR 143 ; 3794 
016767 0000006 0000006 13%: MOV LBN.ED,LBN. ST : 
005201 INC Ri ; COUNT 3788 
020127 000001 CMP Ri, 01 ; COUNT, 
101726 BLOS 11 
166702 0000006 SUB LON.SZ,R2 *,LBN.SA 
066767 0000006 0000006 ADD LBN.5Z.LBN.ED 
000713 BR 10$ 
062706 000010 14$: ADD #10, SP 
032767 000001 0000006 15$: BIT 61, RETRIES 
001402 BEQ 1 
004767 0000006 JSR PC. DO.RETRIES 
005767 0000006 16$: ‘TST RETRIES 
001402 BEG he 
000167 177222 JMP 1$ 
000207 17$: RTS PC 


; Routine Size: 199 words, Routine Base: PR ae « 14060 
; Maximum steck depth per invocation: 14 words 


-SBTTL 117 TEST SECTION 


004767 177156 T17:: 
1$: JSR PC,$T17 
104466 TRAP 66 
006000 ROR RO 
10 103773 BLO 1$ 
207 RTS PC 
; Routine Size: words, Rout ine poses ACSCODE + 14676 


3; Maximum stack A A. per invocetion: 2 word 











D/ 


ZRCFBS CZRCFCO RC2S FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 
vO3.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCFC JZRCFC3.616;4 





SEG 0206 93 
09617) 





; 3824 1 !<BLF /PAGE> 





—————— 


CZRCFCO RC25 FR END TEST 
TEST SECTION 


ZRCFRS 
vo3.0 


7 
BGNTST; 


Yee 
; TEST #18 - TOGGLE SEEK AND VERIFY TEST 
DESCRIPTION: 


ACCEPT MSCP COMMAND 


May THE BEGINNING 
OF 820 (LBN = 820 * 31). 


TRACK 
THE SOFTWARE QUESTIONS. 


‘ 

i 

’ 

‘ 

: 

‘ 

' 

: 

: 

2 

UNLESS THE OPERATOR CHOSE T 
v 

’ 

, 

‘ REPORTING 

RETRIES IS ENABLED. 
’ 

es 


locel 
LBN_SA; 


abel 
BLOCK1, 
BLOCK2; 
if .SWP_TRACE then PRINTF (DBM24); § 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 


n 
TIP = 18; 
1 GET AZTEC READY FOR OPERATION 
if AZTEC_READY () ' 
then 


begin 

ERADF (61, AZT_READY_ERR, 0); H 
if .RET_STATUS then DECODE (); H 
RETRIES = TRUE; H 
end 


else 
BLOCK1 : 


t PREPARE e Pon READ _CMD 
E COUNT”: ZERO; 


Se Se SE SF Se SE GS Ge Ge GF Ge SF GH SF Ge GF GF OF SE GE GF GF BH BH OF BF OF SF OF GE BF OF OF OF Gr OF OF GF OF BF OF OF Os BF OF Or Os Os Ge OF Os OF 66 Os Os oF 00 
w 
@ 
uw 
uw 
VVIVN & SUI & & & & & PWWWWUWNUIWWWW WWW WII UI III IU 


— 





27-Mar-1985 15:27:28 
27-Mer-1985 13:28:18 


ERROR REPORTS INCLUDE STARTING, ENDING AND DESIRED TRACKS. 
THE FAILURE THE DIAGNOSTIC WILL ABORT THE TEST, UNLESS 





E/ 


SEQ Se0P 
918) 


VAX-11 Bliss-16 V4.0-57 
USER$1; : (AZTEC. CZRCECIZRCFC3, B16;4 


THIS TEST BRINGS i CONTROLLER AND THE UNIT ON LINE AND READY TO 


ONE THOUSAND SEEK COMMANDS WILL BE ISSUED ONE AT A TIME TO TOGGLE 
OF 0 (LBN = 0) AND THE ENDING TRACK 


THIS IS_A SINGLE SURFACE LS SEEK IS DONE ONLY ON TOP SURFACE 

0 SEEK ON eaten SURFACE BY ANSWERING 
ONE OF OPERATOR HAS CONTROL OVER THE 
BEGINNING AND ENDING TRACKS, IF "DESIRED BY ANSWERING QUESTIONS. 


AFTER 


TEST 18 


IF FAILURE REPORT ERROR 


DECODE THE STATUS, IF ANY 
SET RETRIES FLAG 


SET BYTE COUNT TO ZERO 



















F7 


SEQ 0290 
CZRCFCO RC2S5 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bli 6 V4.0-579 Page 95 
TEST SECTION 27-Mar-1985 13:28:18 USER$1: [AZ CEZRCECIZRCFC3.B16,4- (18) 


BUF _DESCRPTR = ZERO; CLEAN THE BUFFER 
t SEEK BETWEEN BEGINNING TRACK AND ENDING TRACK 
F LON_SA = (.SWP_START*.SIZ_LBN); ! FIND STARTING LBN 


LBN- -ED = (.SWP_END*.SIZ_L6N); ! FIND ENDING LBN NUMBER 
TIP™= ZERO; ' CLEAR COUNTER TO ZERO 
BLOCK2 : 
“begin 


while .TIP lequ 500 do 
teas 
LBN_ST = .LBN_SA; 
incru COUNT from 0 to 1 do 
Peer REF = .LBN_ST; PUT LBN IN CMD_LREF 
: 2 de READ_CMD () ! ISSUE A SEEK COMMAND 


DO SEEK 
TO LOWEST LBN 
BEGINNING TRACK LBN 


be 
Peale (62, SK.TOG.ERR, 0): 
PRINTB (FMT9, .SWP_START, .SWP_END, .L@N_ST); 


if .RET_STATUS then DECODE (); ' DECODE STATUS OF READ_CMD 
RETRIES = TRUE; 
leave BLOCK2; ! ABORT SEEK 
1 end 
se 
LBN_ST = .LBN_ED; ' HIGHEST TRACK NUMBER 
end; 
TIP = .TIP + 1; ' INCREMENT COUNTER 
end; ' AND REPEAT S00 TIMES 


end; 
end; 


if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 


HPUWNWE SHS SBUDAD I jIjIBDODOOOWO OOOO OOOO SS IONOOUUUUUIUUIU 


end; 
return; 
ENDTST; 
-SBTTL $1718 TEST SECTION 

004167 000000G $718: JSR ° E2 
032767 000001 000000G BIT #1,SWP. TRACE 
001407 BEQ $ 
012746 000000G MOV > wa CN 


012746 000001 MOV #1,-(S 
10600 SP,RO 


















G/ 







SE 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0-579 gy 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFC)ZRCFC3.B16;4 (18) 
104417 TRAP 
022626 CMP dp). (SP)-« 
005067 0000006 1$: CLR NUM. RETRIES ; 3861 
026767 0000006 0000006 2s: CMP NUM. RETRIES, SWP.RETRIES ; 3863 
101151 BHI let 
012767 000022 0000006 MOV : 3865 
004767 0000006 JSR Pe Aztec. READY ; 3868 
006000 ROR 
103016 BCC a3 
104455 TRAP 3s 55 : 3871 
75 .WORD «75 
"WORD AZT.READY.ERR 
000000 “WORD 
032767 000001 0000006 BIT #1,RET. STATUS : 3873 
001402 BEQ 33 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 3$: MOV 01 .RETRIES ; 3875 
000513 BR 103 ; 3868 
005067 0000006 4s: CLR BYTE. COUNT ; 3881 
005067 0000006 CLR BUF . DESCRPTR ; - 3882 
016746 0000006 MOV SWP. START, -(SP) : 3886 
016746 0000006 MOV 51Z.LBN, -(SP) 
004767 0000006 JSR PC, BL $MUL 
010002 MOV RO.R2 ; *,LBN.SA 
016716 0000006 MOV SwP.END, (SP) ; 3887 
016746 0000006 MOV 51Z.LBN, -(SP) 
004767 0000006 JSR PC, BL $MUL 
010067 0000006 MOV RO, LBN.ED 
005067 0000006 CLR TIP : 3888 
026727 0000006 000764 S$: CMP TIP, 0764 P 3892 
101060 BHI 
010267 0000006 MOV R2,LBN.ST ; LBN.SA,* 3894 
005001 CLR ; COUNT 3896 
016767 000000G 0000006 6$: MOV LBN.ST,CMD.REF ; 3898 
004767 0000006 JSR BC. READ. CHD ; 3900 
103034 Bcc 8$ 
55 TRAP 3 s«55 : 3903 
000076 .WORD «76 
"WORD SK.TOG.ERR 
000000 “WORD 0 
016716 0000006 MOV LBN.ST,(SP) , 3904 
016746 0000006 MOV SUP .E p 
016746 000000G MOV SWP START, -(SP) 
012746 0000006 MOV oFMT9, - 
012746 000004 MOV 04,-(SP 
0 MOV ‘ ; SP, 
104414 TRAP 
062706 000010 ADD #10,SP 
032767 000001 0000006 BIT #1,RET. STATUS ; "I 3906 
001402 BEQ 7$ 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 7$: MOV #1 .RETRIES : 3908 
000412 BR $ ; 3902 
016767 0000006 0000006 8S: MOV LBN.ED,LBN.ST ; 3912 
005 INC R1 ; COUNT 3896 
; 


201 
020127 000001 CMP R1,#1 COUNT, * 











. H/ 


ZRCFBS CZRCFCO ates FR END TEST 27-Mar-1985 15:27:28 
v0O3.0 TEST SECTION 27-Mar-1985 13:28:18 
000332 101726 BLOS 6$ 

000334 005267 0000006 Ni IP 

000340 000714 BR 5$ 

000342 062706 000006 9$; ADD #6, SP 

000346 032767 000001 0000006 10$; BIT #1,RETRIES 

000354 001402 BEQ 11$ 

000356 004767 000000G JSR PC,00.RETRIES 

000362 005767 000000G 11$: TST NUM, RETRIES 

000366 001223 BNE 

000370 000207 12$: RTS PC 


; Routine Size: 125 words, Routine Base: ACSCODE + 14712 
; Maximum steck depth per invocation: 12 words 


-SBTTL 118 TEST SECTION 


000000 004767 177402 T18:: 

000000 1$: JSR PC, $718 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 

; Routine Size: 6 words, | Routine Base: ACSCODE + 15304 
; Maximum stack depth per invocation: words 


; 3930 1 !<BLF /PAGE> 





VAX- 
USER$ 


1 thatte 39-16 
1: (CAZTEC.C CzR CF J2RCFCS. B16;4 


I/ 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USERSI: :(AZTEC.CZR 
3 3931 1 ' 

; 3932 3 BGNTST; 

; 3933 3 

3 3934 3 Yee 

; 3935 3 ! TEST @19 - HEAD SWITCH TEST 

; 3936 3 ' 

: 3937 3 DESCRIPTION: 

; 3939 3 ' THIS TEST WILL BRING RC25 CONTROLLER AND THE UNIT ONLINE 

; 3940 3 ' AND WILL LOAD DM CODE PROGRAM TO CONTROLLER'S MEMORY USING 

; 3941 3 EX_SUP BROS COMMAND. 

; 3083 3 ‘ DM CODE WILL SEEK TO BOTH SURFACES OF THE UNIT. THE XFC STATUS 

; 3944 3 ' WILL BE USED TO VERIFY THAT THE PROPER TRACK HAS BEEN REACHED. 

; 43945 3 ' BLOCK HEADERS WILL BE READ TO VERIFY THAT THE PROPER HEADS ARE 

; 3946 3 : SELECTED. OM CODE WILL RETRY IF THERE WAS ANY ERROR IN SEEK. 

; 3947 3 DM CODE WILL GIVE SUCCESS OR FAILURE CODE 10 THE HOST. 

; 43949 3 ' IF FAILURE, THE TRACK, HEAD AND UNIT WILL SE REPORTED AS RECEIVED 
; 390 3 FROM DM CODE. 

; 3952 3 2 IF RETRIES ARE TURNED ON THE TEST WILL BE REPEATED. 

; 43954 3 ; 

; «3955 3 lebel 

; «63956 «3 BLOCK1; 

3 3957 3 

; 3958 3 if .SWP_TRACE then PRINTF (DBM25); ! TEST 19 

; 3960 3 NUM_RETRIES = ZERO; 

; 3962 3 while (.NUM_RETRIES lequ .SWP_RETRIES) do 

; 3963 4 in 

; | «63964 «4 TIP = 19; 

; 3965 4 ! GET AZTEC READY FOR OPERATION 

; 3967 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 
° 3968 4 then 

3 3969 5 beaie 

; 3970 5 ERRDF (63, AZT_READY_ERR, 0); ! 

: 3972 7 if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
; 39748 «5 RETRIES = TRUE; ! SET RETRIES FLAG 

$ 3975 5 end 

; 397% 4 else 

; 3977 4 BLOCK1 : 

; 3978 5 begin 

3 3979 5 : 

; 3980 5 ! ISSUE AN EX_SUP_PROG COMMAND WITH START ADDRESS OF 

; 3981 5 ' DM_19 VECTOR ARRAY AND BYTE COUN 

; 3982 § CMD_REF = .CMD_ SLOT; ! COMMAND REFERENCE NUMBER 
; 3983 5 BUF DESCRPTR =~DM.19; ' OMCODE STARTING ADDRESS 
; 3984 : BYTE_COUNT = 1568); ! BYTE COUNTS 

; 3986 5 if EX_SUP_PRG () ! ISSUE AN EXECUTE SUPPLIED COMMAND 
; 3987 5 then ! REPORT IF FAILED 


[— 
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SEQ ny 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 X-11 Bli 579 99 
TEST SECTION 27-Mar-1985 13:28:18 USERAE: : (AZ tec. CZRCECIZREFC3, B16;4 09° 19) 
begin 
ERRDF (64, EXE_SUP_ERR, 0); 
if ,RET_STATUS then DECODE (); ! DECODE STATUS 
RETRIES = TRUE; 


leave BLOCK1; ! ABORT TEST 
end; 
CMO_REF = .CMD_SLOT; ! COMMAND REFERENCE 04 
BUF “DESCRPTR = “UNIT; ' DESCRIPTOR ADDRESS 
BYTE COUNT = 02; ! TOTAL BYTES TO BE TRANSFERRED 


ISSUE SEND DATA COMMAND 
IF STATUS eT — ERROR 
THEN REPORT ERROR 


if SEND_DATA () 
then 


poate 
ERRDF (65, SND_DATA_ERR, 0); 
if .RET_STATUS then DECODE (); 
RETRIES = TRUE; 
leave BLOCK1; 
end; 
ISSUE A REC_DATA COMMAND AND WAIT FOR END PACKET 
TO GET THE STATUS SENT BY DM CODE AFTER DOING 
! HEAD SWITCH TEST. 
CMD_REF = .CMD_SLOT; 
BUF _DESCRPTR = “RCV_DATA_BUF (0); 
BYTE_COUNT = 10; 


if REC_DATA () 
then 


DECODE RETURN STATUS 


: ome REFERENCE @ 


'3 AREA T0 
: RECEIVE 5_WORDS agg DM CODE 
! SET BYTE COUNTS 


SEND A RECEIVE DATA COMMAND 
IF FAILURE REPORT ERROR 


a 
= 
o 
S 
285 
wz 


begin 
ERROF (66, RE_DATA_ERR, 0); 
if ,RET_STATUS then DECODE (); 


RETRIES = TRUE; 
leave BLOCK1; 


DECODE STATUS 


end; 
! CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR 
ie ae DATA_BUF [0] nequ #0'104' ! IF NOT SUCCESS, REPORT ERROR 
t 


! REPORT HEAD SWITCH FAILURE 


Dee 67. MSG_HSWICH ERR, 0) 
-RCV_DATA.BUF (3]);  ! PRINT UNIT, HEAD AND 


PRINTB (FMT10, .RCV_DATA_B uF f1), RCV DATA_BUF Le ), 
! TRACK NUMBER 


RETRIES = TRUE; 
end; 





end; 
if (.RETRIES) then DO_RETRIES (); 


——_—___— 
IK7 
SEQ_0295 





ZRCFR3 CZRCFCO C25 FR END TEST 27-Mar-1985 15:27:28 1 Bliss-16 579 Page 100 
v03.0 TEST SECTI 27-Mar-1985 13:28:18 USeRee :TAZTEC. CZRCECIZRCFCS. B16;4 (19) 
4045 4 
4046 4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
4047 4 
3 end; 
4049 3 
3 return; 
i ENDTST; 
.SBTTL $119 TEST SECTION 
032767 000001 0000006 $119: BIT 61,SWP. TRACE 
001407 BEQ 
012746 0000006 MOV @DBM25, -(SP) 
012746 000001 MOV #1, -(SP) 
010600 MOV SP,RO 
104417 TRAP «17 
022626 CMP (SP)- (SP). 
005067 0000006 1$: CLR NUM, RETRIES 
767 000000G 0000006 2s: CMP NUM. RETRIES, SWP.RETRIES 
101401 BLOS 3% 
207 RTS 
012767 000023 0000006 3$: MOV 023,TIP 
767 0000006 JSR PC, AZTEC. READY 
ROR RO 
103016 BCC S$ 
04455 TRAP «555 
77 .WORD 77 
"WORD AZT.READY.ERR 
“WORD 0 
032767 000001 0000006 BIT $1,RET. STATUS 
001402 BEQ 43 
767 JSR PC, DECODE 
012767 000001 0000006 4s: HOV él, "RETRIES 
016767 0000006 0000006 S$: MOV CMD. SLOT, CMD. REF 
012767 0000006 0000006 MOV 60M. 19,BUF .DESCRPTR 
012767 000470 0000006 MOV 0470, BYTE. COUNT 
004767 JSR PC. EX. SUP .PRG 
006000 ROR 
103016 BCC 
104455 TRAP og 
000100 .WORD 100 
- WORD EXE .SUP.ERR 
032767 000001 0000006 BIT #1,RET. STATUS 
001402 BEQ 6$ 
767 0000006 JSR PC, DECODE 
012767 000001 0000006 6$: HOV a1, *RETRIES 
016767 000000G 0000006 7$: MOV CMD. SLOT, CMD. REF 
012767 000000G 0000006 MOV OUNIT , BUF . DESCRPTR 
012767 000062 0000006 MOV 02, BYTE. COUNT 
767 0000006 JSR PC,SEND.DATA 
000 ROR RO 
103016 BCC 9$ 
104455 TRAP 3s 
000101 .WORD 101 











|. Ear: L7 





SEQ 0296 
ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Blis Page 101 
v03.0 TEST SECTION 57-Mar-1985 13:28:18  USER$1:(AZTEC. Me aRCEC IZRCFCS, B16;4 (19) 
000242 0000006 .WORD SND. DATA.ERR 
000244 000000 “WORD 
000246 032767 000001 0000006 BIT 61,RET. STATUS ‘ 4006 
000254 001402 BEQ 8$ 
000256 004767 0000006 JSR PC, DECODE 
012767 000001 0000006 84: MOV 01. RETRIES : 4028 
000270 000464 BR 12 ; 4003 
000272 016767 0000006 0000006 94: MOV CMO. SLOT, CMO. REF ; 4015 
000300 012767 0000006 0000006 MOV ORCV. DATA. Bue BUF .DESCRPTR ; 4016 
000306 012767 000012 0000006 MOV 012, BYTE. COUNT : 4018 
000314 004767 0000006 JSR PC,REC.DATA ; 4020 
000320 006000 ROR 
000322 103016 BCC 118 
000324 104455 TRAP 3 s«§5 : 4023 
000326 000102 .WORD 102 
000330 0000006 "WORD RE.DATA.ERR 
000332 000000 WORD " 
000334 032767 000001 0000006 617 @1,RET. STATUS : 4025 
000342 001402 BEQ 108 
000344 004767 0000006 JSR PC, DECODE 
000350 012767 000001 0000006 10$: MOV 01.RETRIES : 4027 
000356 000431 BR 12% ; 4022 
360 026727 0000006 000104 11s: CMP RCV. DATA. BUF, 0104 : 4033 
000366 001425 BEQ 12% 
000370 104455 TRAP 3 s«455 : 4036 
000372 000103 .WORD 103 
000374 0000006 “WORD MSG.HSWICH.ERR 
000376 000000 "WORD 0 
016746 0000066 MOV RCV. DATA. BUF 6, -( SP) : 4037 
016746 0000046 MOV RCV.DATA.BUF «4, -(SP) 
000410 016746 0000026 MOV RCV: DATA. BUF +2. -(SP) 
012746 0000006 MOV OFMT10, -(SP) 
012746 000004 MOV 04, -(SP) 
010600 MOV SP RO ; SP,e 
104414 TRAP = 4 
012767 000001 0000006 MOV 01, RETRIES : 4039 
062706 000012 ADD 012, : 4035 
032767 000001 0000006 12s: BIT 01, RETRIES ; 4044 
001402 BEQ 133 
004767 0000006 JSR PC ,DO.RETRIES 
005767 0000006 138: 157 NUM, RETRIES , 4046 
001402 BEQ 148 
000167 177342 23 
000207 148; ATS PC ; 3929 
; Routine Size: 157 words, Routine Bese: ACSCODE + 15320 
; Meximum steck depth per invocetion: 7 words 
.SBTTL 119 TEST SECTION 
004767 177302 119:: 
1$: JSR PC,$719 : 4050 
104466 TRAP 3s «6 
006000 ROR RO 
103773 BLO 1$ 











M7 | 
ZACFAS CZRCFCO RC2S FR END TEST 27-Mer-1985 15:27:28  VAX-11 B1i 9-579 ong 
v03.0 TEST SECTI 27-Mer-1965 13:28:18 USERS; [AZ Tec. CZRCEC IZRCFC3. 616;4 °F (19) 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Bese: ACSCODE + 16012 


; Meximum steck depth per invocation: 2 words 


; 4052 1 !<BLF /PAGE > 
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N7 | 
RC2S FR END TEST 27-Mer-1985 15:27:28  VAX-11 Blise-16 v4.0-579 sy ag 
F r- - 198- .0- 
Test section * 27-Mar-1985 13:28:18  USER#1:(AZTEC.CZRCFCIJZRCFC3.816;4  ™*(29) 
7 
BGNTST; 
See 
{TEST #20 - RANDOM SEEK AND VERIFY TEST 
t DESCRIPTION: 
; THIS, TEST RINGS RC2S CONTROLLER AND THE SELECTED UNIT ONLINE 
RRR Se Se rasa et 
SWITCH AS WELL BECAUSE TRACKS OVER 820 WILL BE IN THE BOTTOM 
SURFACE OF SELECTED UNIT. 
; RROR REPORTS INCLUDE SEEK COUNT AND FAILING TRACK NUMBER. IF 
LOOP ON ERROR FLAG TS SET, FAILING TRACK UICL Be RENRTED FOR EVER, 
‘ 
i. 
lebel 
BLOCK1; 


if .SWP_TRACE then PRINTF (08M26); TEST 20 
NUM_RETRIES » ZERO; 

while (.NUM_RETRIES lequ .SWP_RETRIES) do 

+ GET RZTEC READY FOR OPERATION 


if AZTEC_READY () 
then 


IF FAILURE REPORT ERROR 


ERADF (68, AZT_READY_ERR, 0); 
if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
RETRIES = TRUE; ! SET RETRIES FLAG 
end 
else 

B.0CK) : 
begin 

I 

: YTE_COUNT ! SET BYTE COUNT TO ZERO 
Sur DESCRPTA - eh0; i CLEAN THE BUFFER 
P2 = TICKS; ! INIT P2 FOR RANDOM NUMBER 
TIP » ONE; ! INIT COUNTER TO ONE 


DO SEEK 1000 TIMES 

T A_ RANDOM LEN NUMBER 
MIS IS IT 
PUT LON IN CMD_LREF 


ISSUE A SEEK COMMAND 


wile Ah lequ 1000 do 


CBN ST ee 
L a 
CHO "REF »'.. ON ‘ST; 


if READ CMD () 
then 
begin 





ee ee oe @ oe 6 Ge Ge Gt Gt Ge GF Ge Gt Gt Ge GF Ge Ge G6 Ge Gt GF 
& 
~~ 
tw 
(~4 
K—WWW PP &aUUAAD sss 


000000 032767 
000006 


67 
000146 016767 
000154 016767 


Eelaeera sche BR ERR St dann RE RS SSS o8 


B8 


CZRCFCO 9 24 FR END TEST 27-Mer-1985 1 
TEST SECTI 27-Mer-1985 1 


RROF (69, SK_RAN_ERR, 0); 
PRINT CFMT11, .TIP, .LBN_ST); 


if .RET_STATUS then DECODE (); ! DECODE STATUS OF READ_CMD 


RETRIES = TRUE; 


leave BLOCK1; ! ABORT SEEK 
end 


se 
TIP = .TIP + 1; ! INCREMENT COUNTER 
end; 
if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 


end; 

return; 
ENDTST; 

.SBTTL $120 TEST SECTION 
000001 0000006 $720: err $1, SWP. TRACE 
0000006 MOV a0BH26 -(SP) 
000001 MOV (Sb) 

MOV SPR 

TRAP 17 

CMP tgp). (SP). 
0000006 1$ CLR NUM. RETRIES 
0000006 0000006 2s: cH NUM “RETRIES, SWP.RETRIES 
0000006 "JSR PC, AZTEC. READY 

ROR RO 

BCC 43 

TRAP = 55 

.WORD 104 

- WORD AZT.READY.ERR 
000001 0000006 eT ¢1,RET.STATUS 
0000006 JSR PC, DECODE 
000001 0000006 3$: HOV @1,RETRIES 
0000006 4s: CLR BYTE. COUNT 
0000006 CLR BUF . DESC’ OTR 

MOV TICKS, P2 
000001 0000006 MOV 01,11 
0000006 001750 S$; cH TIP ,61750 
0000006 JSR PC ,RANDOM. NUM 
0000006 0000006 MOV P3,LBN.ST 
0000006 0000006 MOV LON. ST, CMD. REF 


1 


6 
Cc 


v4, 
TRCFCIZRCFCS. B16;4 


¢ 









C8 


5 FR END TEST ; 27-Mar-1985 13:8 


SEQ 0300 
:28 VAX-1 $-16 V 
ON 27-Mer-1985 13:28:18 


7: 1 Bliss- 4.0-579 P 
8: USER$1; (AZTEC. CZRCFC JZRCFC3.616;4 (20) 





JSR PC,READ.CMD ; 
ROR RO 
BCC 7$ 
TRAP 55 
-WORD 105 
«WORD SK.RAN.ERR 
WORD 


MOV LON.ST, -(SP) 

MOV oFMT11, -(SP) 

MOV 03, -(SP) 
SP.R 


010, SP 
000001 0000006 BIT #1, RET. STATUS 
0000006 PC ,DECODE 
000001 0000006 6$: MOV 1 ,RETRIES 
7$: INC TIP 


5$ 
000001 0000006 8$: BIT 01,RETRIES 


PC,00.RETRIES 
9$: TST ~ Pateechitensie 


BNE 
10$: RTS PC 


: Routine Size: 100 words, Routine Base: ACSCODE + 16026 
; Meximum steck depth per invocetion: 6 words 





-SBTTL T20 TEST SECTION 


000000 004767 177464 T20:: 

000000 1$: JSR PC, $120 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 

; Routine Size: 6 words, | Routine Base: ACSCODE + 16336 
; Maximum stack depth per invocation: 2 words 


>; 4133 1 !<BLF /PAGE> 
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ZRCFBS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Blies-16 V a 
Vo3.0 TEST SECTION 57-Mar-1985 13:28:18 USERSI:CAZTEC-CZRCFCIZRCFC3.616;4 (355 





z 
BGNTST; 


Yee 
: TEST #21 - SECTOR ACCESS TEST 


1 
; s 
; : 
3 
; 4140 3 DESCRIPTION: 
; 4142 3 ' THIS TEST BRINGS RC25 CONTROLLER AND SELECTED UNIT ONLINE 
; 4143 3 ' AND THEN LOADS DM. 21 VECTOR ARRAY INTO CONTROLLER'S MEMORY 
; aie 3 BY GIVING EX_SUP_PROG COMMAND. 
; 4146 3 : THE DM PROGRAM WILL SEEK 10 AQIAGNOSTIC TRACK © AND READ 32 
; 4147 3 ‘ BLOCKS AFTER MAKING SURE THAT GOOD HEADER IS FOUND. DM CODE 
; 4148 3 ‘ WILL RETRY IF ANY ERROR WAS. FOUND. On REDE WILL SEND STATUS BACK 
; 4149 3 ' TO HOST WITH FAILING UNIT, HEAD AND TRACK. ERROR WILL BE REPORTED 
; 4130 3 BY HOST CODE. 
; 4152 3 ‘ THIS IS A SINGLE SURFACE TEST. TOP SURFACE WILL BE ACCESSED 
; 4153 3 ' UNLESS THE OPERATOR CHOSE BOTTOM SURFACE BY ANSWERING ONE OF 
; 4154 3 ‘ THE SOFTWARE QUESTIONS 
3 4155 3 ‘ 
3 4156 3 ‘. 
3 4157 3 
: 4158 3 abel 
; 4159 3 BLOCK1; 
3 4160 3 
: 4161 3 if .SWP_TRACE then PRINTF (DBM27); ! TEST 21 
3 4165 3 NUM_RETRIES = ZERO; 
; 4165 3 while (.NUM_RETRIES lequ .SWP_RETRIES) do 
: 4166 4 bogie 
; 4167 4 
; leg 4 + GET-AZTEC READY FOR OPERATION 
; 4170 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 
3 4171 4 then 
3 4172 5 pone 
; 4175 E ERRDF (70, AZT_READY_ERR, 0); ' 
; 4175 > if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
; 4177 5 RETRIES = TRUE; ! SET RETRIES FLAG 
; 4178 5 end P 
3 4179 4 else 
; 4180 4 BLOCK1 : 
an ee 
; 4183 § ! ISSUE AN EX_SUP_PROG COMMAND WITH START ADDRESS OF 
>; 4184 5 ! DM_21 VECTOR ARRAY AND BYTE COUNT. 
; 64185 5 CMD_REF = .CMD_SLOT; ! COMMAND REFERENCE NUMBER 
; 4186 5 BUF DESCRPTR ="DM_21; ' DMCODE STARTING ADDRESS 
; 4187 2 BYTE_COUNT = 21342; ! BYTE COUNTS 
3 
; 4189 5 if EX_SUP_PRG () ! ISSUE AN EXECUTE SUPPLIED COMMAND 
; 4190 § then ! REPORT IF FAILED 


r— 





















° £8 





ZRCFB3 CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bliss-16 V4.0-579 a 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1:(A ZTEC.CZRCFCIZRCFC3.B16;4 (21) 
3 4191 6 begin 

3 ant : ERRDF (71, EXE_SUP_ERR, 0); 

C 

3 ai35 : if .RET_STATUS then DECODE (); ! DECODE STATUS 

3 4196 6 RETRIES = TRUE; 

3 4197 6 leave BLOCK1; ! ABORT TEST 

>; 4198 5 end; 

’ 4199 5 

: 4200 5 SEND_PKT [WORDO ‘ea' 

; 4201 «5 SEND PKT [WORD uP_toP; 

3 4202 5 MO_REF = .CMD_SL oT; ' COMMAND REFERENCE 04 

8 4203 5 at ,DESCRPTR s oe _PKT; ! DESCRIPTOR ADDRESS 

; ates ; BYTE_COUNT ! TOTAL BYTES TO BE TRANSFERRED 
a 

3 4206 5 if SEND_DATA () ! ISSUE SEND DATA COMMAND 

3 4207 5 then x ! IF STATUS BIT INDICATES ERROR 
3 4208 6 poaie ! THEN REPORT ERROR 

3 4500 : ERRDF (72, SND_DATA_ERR, 0); H 

8 ass : if .RET_STATUS then DECODE (); ' DECODE RETURN STATUS 

3 4213 6 RETRIES = TRUE; 

3 4214 6 leave BLOCK1; 

3 4215 5 end; 

3 4216 5 

: 4217 5 ! Bey} A REC_DATA COMMAND AND WAIT FOR END PACKET 

: 4218 5 TO GET THE STATUS SENT BY DM CODE AFTER DOING 

3 4219 5 ' + SECTOR ACCESS TEST. 

3 4220 5 CMD_REF = .CMD_SLOT; ' COMMAND REFERENCE @ 

$ 4221 5 BUF DESCRPTR = “RCV_DATA_BUF (0); ! SET THE BUFFER AREA TO 

: 4222 5 ' RECEIVE S WORDS yg DM CODE 
3 ass ; BYTE_COUNT = 10; ! SET BYTE COUNTS = 

3 4225 5 if REC_DATA () ' SEND A RECEIVE DATA COMMAND 
; 4226 5 then 

3 4227 6 begin ! IF FAILURE REPORT ERROR 

8 asss : ERRDF (73, RE_DATA_ERR, 0); 

; asat ; if .RET_STATUS then DECODE (); ' DECODE STATUS 

H 

3 4232 6 RETRIES = TRUE; 

3 4233 6 leave BLOCK1; 

3 “539 2 ' CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR 

3 4238 5 if .RCV_DATA_BUF [0) nequ #0'104' ! IF NOT SUCCESS, REPORT ERROR 
; 4239 5 then 

3 4240 6 popie 

$ 4241 6 OF (74, MSG_SAC_ERR, 0); REPORT SECTOR ACCESS FAILURE 
$ 4242 6 BRINTB (FMT10, RCV ~DATA_BUF (1), RCV DATA_BUF [2], .RCV_DATA_BUF [3)); ! PRINT UNIT, HEAD AND 
; 4243 6 ! TRACK NUMBER 

8 4244 6 RETRIES = TRUE; 

; 4245 5 end; 

: 4246 5 

; 4247 4 end; 


F8 





ZRCFBS CZRCFCO_RC25 FR END TEST - 27-Mar-1985 15:27:28 VAX-11 Blise-16 v4.0-57 ig: oy 
Vos.0 TEST SECTION 27-Mar-1985 13:28:18 USERS: (AZTEC. CZRCFCIZRCFC3.616,4 (21) 
4 
4 if (.RETRIES) then DO_RETRIES (); 
: if (.NUM_RETRIES eqlu ZERO) then exitloop: 
3 end; 
3 
3 return; 
1 TST; 
.SBTTL $721 TEST SECTION 
32767 000001 0000006 $121: BIT 01, SWP. TRACE 4161 
001407 BEQ 
012746 0000006 MOV @DBH27, -( SP) 
012746 000001 HOV #1, -(SP) 
010600 HOV SPO ; SP,e 
104417 TRAP 17 
022626 CHE (SPDs (SP). 
005067 0000006 1s: CLR =NNUMRETRIES 4163 
026767 0000006 0000006 26: CHP NUM RETRIES, SWP.RETRIES 4165 
101401 BLOS 35 
000207 RTS BC 
012767 000025 0000006 3s: MOV 085, TIP ' , 4167 
004767 0000006 JsR PC. AZTEC. READY ; 4170 
103016 Bcc |S 
55 TRAP 55 4173 
000106 WORD 106 
"WORD AZT. READY ERR 
000000 “WORD 
032767 000001 0000006 BIT 01, RET. STATUS 4175 
001 Beg 4s 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 4s: MOV —@1;RETRIES , 4177 
000560 BR 12$ ; 4170 
016767 0000006 0000006 S$: MOV CHD. SLOT, CHD. REF 4185 
012767 0000006 0000006 HOV §0H.21 BUF .DESCRPTR 4186 
012767 000652 0000006 HOV 652, BYTE. COUN 4187 
004767 0000006 JR PCEX. SUP. PRO ; 4189 
006000 ROR 
103016 ace 8 
104455 TRAP 55 ' 4192 
000107 WORD 107 
"WORD EXE, SUP. ERR 
000000 “WORD 
032767 000001 0000006 BIT 01, RET. STATUS 4194 
001402 BEQ «6 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 6¢: MOV —@1-RETRIES 4196 
000525 BR 128 4191 
016767 0000006 000230’ 7: MOV _UNTT, SEND. PKT ; 4200 
016767 0000006 000232! HOV —-SWP. TOP, SEND. PKT+2 4201 
016767 0000006 0000006 HOV EMD SLOT CHD REF 4202 
012767 000230" 0000006 Mov éSEND-Pxf BUF .DESCRPTR 4203 
012767 000004 0000006 MOV 04, BYTE. COUN 4304 
004767 0000006 USR PC SEND:DATA. ; 4206 














G8 


SEQ 0304 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0-579 Page 109 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCJZRCFC3.B16;4 (21) 
ROR RO 
i, 
; 4209 
.WORD 110 
- WORD SND.DATA.ERR 
000001 0000006 BIT al, RET. STATUS ; 4211 
0000006 JSR PC, DECODE 
000001 0000006 8$: MOV #1.RETRIES ; 4213 
BR 12$ ; 4208 
0000006 0000006 9$: MOV cho. SLOT,C ; 4220 
0000006 0000006 MOV ORCV. BATAC BUF TBUF . DESCRPTR ; 4221 
000012 0000006 MOV $12, BYTE. COUNT ; 4223 
0000006 JSR PC, REC. FayR : 
ROR 
BCC 11$ 
TRAP 3s 55 
.WORD 111 
“WORD  RE.DATA.ERR 
“WORD 
00000; 0000006 BIT $1,RET. STATUS 
BEQ 10$ 
0000006 JSR PC, DECODE 
000001 0000006 10$: MOV o1 ,RETRIES 
0000006 000104 11$: CMP RCV. DATA. BUF, #104 
BEQ 12$ 
TRAP 
.WORD il2 
“WORD MSG.SAC.ERR 
"WORD 0 
0000066 MOV RCV. DATA.BUF «6, -(SP) 
0000046 MOV RCV.DATA.BUF +4, -(SP) 
0000026 MOV RCV. DATA. BUF +2, -(SP) 
0000006 MOV #FMT10, -( 
000004 MOV 64,-(SP 
MOV SP; 
TRAP 3s «14 
000001 0000006 MOV #1,RETRIES 
000012 ADD ‘ 
000001 0000006 12%: BIT 01, RETRIES 
0000006 JSR PC, DO.RETRIES 
0000006 13$ TST NUM, RETRIES 
BEQ 14$ 
177326 JMP Py 





14$: RTS PC 


; Routine Size: 163 words, Routine Base: ACS$CODE + 16352 
; Meximum steck depth per invocation: 7 words 


-SBTTL 121 TEST SECTION 
00000 004767 177266 T2l:: 








8 RC25 FR END TEST 
SECTION 


6 words, ACS$CODE + 17060 
; Qed stack depth per invocation: ds 











H8 


SEQ 0305 
27-Mar-1985 15:27:28 VAX-11 Bliss-16 579 Page 110 
27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCECIZRCFCS, B16;4 (21) 


PC, $T2i ; 4255 
66 
RO 


1$ 
PC 


18 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0-57 
v03.0 TEST SECTI 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFC)ZRCFC3.B16;4 
> 4258 1 ' 

:; 4259 3 BGNTST; 

; 4260 3 

; 4261 3 bes 

; 4262 ; TEST #22 - CONTROLLER PROCESSING TIME TEST 

: 4264 : DESCRIPTION: 

: 4266 3 THIS TEST BRINGS RC25 CONTROLLER AND SELECTED UNIT ONLINE. 

; 4268 3 ' THE CONTROLLER PROCESSING TIME IS MEASURED BY AVERAGING THE 

; 4269 3 ‘ TIME IT TAKES TO DO 100 ZERO LENGTH SEEKS, THAT IS, SEEKS THAT 

3 4270 3 ARE ZERO TRACKS LONG. 

; 4272 3 ‘ THIS IS A SINGLE SURFACE TEST, SEEK WILL BE DONE ON Top SURF ACE 

s 4278 3 : UNLESS THE OPERATOR CHOSE TO SEEK ON BOTTOM SURFACE. TRACK 0 

; 47 § ‘ WILL BE USED OR THE STARTING TRACK NUMBER AS GIVEN by’ THE OPERATOR 
; 4275 3 WILL BE USED. 

; 4277 3 ' IF THERE WAS ANY ERROR IN SEEK THIS WILL BE REPORTED WITH THE 

; 4278 3 ‘ THE NUMBER OF SEEKS COMPLETED AND DESIRED TRACK. THE TEST WILL 

; 4279 3 BE ABORTED UNLESS RETRIES wae ENABLED. 

3 4281 3 ¥ IF SUCCESS, THE AVERAGE TIME WILL BE REPORTED. 

; 4283 3 

3 4284 3 abel 

3 4285 3 BLOCK1; a 

: 4287 : if .SWP_TRACE then PRINTF (DBM28); “3 TEST 22 

; 4289 ; NUM_RETRIES = ZERO; 

; 4291 3 while (.NUM_RETRIES lequ .SWP_RETRIES) do 

; 4293 4 penis ALL_ONES; ! THIS FLAG INHIBITS READ. CMD 
; 4294 4 ! WAITING FOR END PACKE 

; 4295 4 ! GET AZTEC READY FOR OPERATION 

; 4297 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 
3 4298 4 then 

3 4299 5 pegia 

: 4300 3 ERRDF (75, AZT_READY_ERR, 0); ' 

; 4302 > if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
; 4304 «5 RETRIES = TRUE; ! SET RETRIES FLAG 

rf 4305 5 end 

; 4306 4 else 

; 4307 4 BLOCK1 : 

; 4308 5 begin 

; 4309 5 ‘ 

; 4310 5 BYTE_COUNT = ZERO; ! BYTE COUNTS ZERO 

; 4311 5 LBN_ST = .SWP_ STARTS. SIZ_LBN; ! STARTING L 

; 4312 : BUF DESCRPTR = ZERO; ! CLEAR BUFFER DESCRIPTOR 
rj * 

; 644314 «5 ‘ FILL THE COMMUNICATION COMMAND RING SLOTS 











Gener ee RC25 FR END TEST 
vO3.0 TEST SECTION 


' WITH READ COMMANDS 
OUT_BOUND = ZERO; 
IN_BOUND = ZERO; 
incru I from 0 to SND_ALLOCATE - 1 do 
Bse'R REF = .CMD_SLOT; 


BOUND = .OUT_BOUND + 1; 
READ CH (); 


if GET_CMD_SLOT () then exitloop; 


end; 


' 
{ INIT THE CLOCK AND START TIMING 
. CLOCK. INIT (); 
TEMP = .RC25_ADDR [RCIP, RC_ALL); 


while .IN_BOUND lequ 100 do 
begin 
if REC_STATUS () 
then 

PERe’= INBOUND; 

ERROF ae "ee. SEEK ERR, 0); 
PRINTB (FMT11, . TEMP, 
DECODE (); 

RETRIES = TRUE; 

leave BLOCK1; 

end 
else 

begin 

while .QUT_BOUND lequ 100 do 

OUT_BOUND = .OUT_BOUND «+ 1; 


if (.OUT_BOUND - 

end; 
TEMP = 
end; 


end; 


Se Ge Ge Ge Ge Gt Ge Ge Ge Ge Ge Ge Ge Gt Ge GS Ge Ge GS Ge Gs Ge Ge Ge © oF Ge GF Ge Ge Se Gt Gt Ge Ge GF Gt GF Gs Ge Ge Ge OF Ge Ge Gs Ge os Gs GH Gs Ge Oe Gs Ge os oe 
ry 
~ 

WII DD Sd SI SI 1. DO. OD 9. OO IID SI ISI III ID OA AH NUIUUIUIUIDAMDAHOOHOHUUUUU 


— 


.LBN.5T); __ 


seao” -RING (.CMD_SLOT, OWN OTT), . Roy 


if GET_CMD_SLOT () then exitloop; 
- IN_BOUND) eqlu 16 then exitloop; 


-RC25_ADDR [RCIP, RC ~ALL J; 








J8 


SEQ 0307 
27-Mar-1985 16_V4,0-579 
27-Mar-1985 -CZRCFC JZRCFC3.B16;4 
INITIALIZE COMMAND COUNT 

INIT RECEIVE COUNT 


FILL COMMAND BUFFER WITH 
SEEK COMMANDS (16 SLOTS 
WILL BE nk TO GET 

A QUEVE LENGTH OF Ne 
UPDATE COMMAND COUN 
ISSUE READ CORMAN 


GET NEXT COMMAND SLOT 


INIT CLOCK VARIABLES 
READ IP TO INITIATE 
CONTROLLER TO START POLLING 


DO SEEK 100 TIMES 


POLL RECEIVE RING FOR HOST 
OWNERSHIP 
IF ERROR, REPORT ERROR 


! DECODE END PACKET STATUS 
! AND ABORT TEST 


OWNED ; ! RETURN 
CHO. BACK TO PORT 
THICREMENT COMMAND COUNT 


! MAINTAIN A QUEUE LENGTH OF 15 


READ IP TO INITIATE 
} CONTROLLER TO START POLLING 





-—___—— 
K8 


ZRCFRS CZRCFCO 5 fo FR END TEST 27-Mar-1985 15:2 
vo3.0 TEST SECTION 27-Mar-1985 17:2 


SEQ 0308 
28 = VAX-11 Bliss-16 V4.0-579 Page 11 
[18 _- USER#1: (AZTEC. CZRCFC JZRCFC3.B16;4 (22 


., 

8: 

: 

! STOP THE CLOCK 

: sCLK_CSR = ZERO; 
00 


Pé 
P2 = (. MINUTESe60 + SECONDS )#10 
P2. (. TaCKSe107 CLK HERTZ)» 


STOP THE CLOCK 
NUMBER OF SEEKS 
SO_MANY Ms gy SEEK 





; 
: 5 
3 5 
é 
; 4378 5 DATA4 = TOTAL MSEC./ 
; 4379 5 DATA3 = .TICKS*i000 mod .CLK_AERT zy 100TH OF MSEC. PER SEEK 
; 4380 5 PRINTB (MSG_ PRO _TIME, .DATA4, .DATA3); ! PRINT MESSAGE ‘AVERAGE SEEK TIME’ 
: 4361 4 end; 
; 4382 4 : 
: 4383 4 if (.RETRIES) then DO_RETRIES (); 
: 4385 4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
3 4387 3 end; 
; 44388 3 
2 4389 3 return; 
3 4390 1 ENDTST; 
.SBTIL $122 TEST SECTION 
000000 010146 $122: MOV Ri, -(SP) 
000002 024646 CMP -($P), -(SP) 
000004 032767 000001 0000006 BIT ol, ary TRACE 
000012 001407 BEQ 1 
000014 012746 0000006 MOV @DBM28, -(SP) 
000020 012746 000001 MOV 01, -(SP) 
000024 010600 MOV SP RO 
000026 104417 TRAP =‘ 17 
000030 022626 CMP (SP)+,(SP)- 
000032 005067 0000006 1s: CLR NUM. RETRIES 
000036 026767 000000G 0000006 2s: CMP NUM. RETRIES, SWP.RETRIES 
000044 101402 BLOS 33 
000046 000167 000622 
000052 012767 177777 000000G 3$; MOV 6-1, TIP 
000060 004767 0000006 JSR PC, AZTEC. READY 
000064 006000 ROR RO 
000066 103017 BCC 5$ 
000070 104455 TRAP «5S 
000072 000113 .WORD 113 
000074 0000006 "WORD AZT.READY.ERR 
76 000000 ; WORD 
100 032767 000001 0000006 BIT 61,RET. STATUS 
06 001402 BEQ 43 
110 004767 0000006 JSR PC, DECODE 
114 012767 000001 0000006 4s: MOV 01. RETRIES 
122 000167 000520 JMP 133 
0000006 S$: CLR BYTE. COUNT 
132 016746 0000006 MOV SWP. START, -(SP) 
016746 0000006 MOV 51Z.LBN, -(SP) 
142 004767 0000006 JSR ‘ 
146 010067 0000006 MOV RO,LBN.ST 
152 005067 0000006 CLR BUF . DESCRPTR 
156 005067 0000006 CLR OUT . BOUND 
162 005067 0000006 CLR IN. BOUND 
66 005001 CLR Rl 











016767 
S267 





eas 24 FR END TEST 


0000006 0000006 6$: 


CZRCF 
TEST 


000000G 7$: 


000000G 
000000G 000144 83: 


000144 9$: 


000002 


10$: 


L8 


27-Mer -198 
27-Mer-198 


CMO. SLOT, CMD. REF 
OUT . BOUND 


PC, READ. CMD 
pC GET. -CMO. SLOT 


7$ 

Ri 

R1,017 

6$ 

PC, CLOCK. INIT 
@RC25. ADDR, 4( SP) 

4(SP), TEMP 

IN ; BOUND, 0144 

PC. PREC. STATUS 

7N.BOUND, TEMP 

55 

114 

MSG. SEEK .ERR 

LBN. ST (SP) 

OFMT11, -(SP) 

rs P) 


14 


PC, DECODE 

01 .RETRIES 
622,SP 

12$ 

OUT .BOUND, 0144 
CHO. SLOT, RO 
SEND. RING, RO 
#100000. ,2¢RO) 
PC, GET.CMO.SLOT 


BRC25. sok. 6(SP) 
6(SP), TEMP 


As 
acLK.CSR 
0144, P6 
MINVIES, (SP) 
074, -(SP) 

PC BL $MUL 
SECONDS , RO 


ui 





SEQ 0309 
036 V4 ,.0-57 
NCZRCEC JZRCFCS. B16;4 


I 
: I,¢ 


; #,RC.REG 4334 
3 RC .REG,¢ 
‘ 








— re F saad 
M8 
SEQ 0310 
ZRCFR3 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:2 VAX-11 Bliss-16 V4.0-579 Page 115 
v03.0 TEST SECTION 27-Mar-1985 13:2 USER$1: (AZTEC. CZRCFC JZRCFC3.616;4 (22) 
000510 010016 MOV RO, (SP) 
000512 012746 000012 MOV 012, -(SP) 
000516 004767 0000006 JSR PC, BL SMUL 
0067 0000006 MOV P2 
016716 0000006 MOV TICKS, (SP) 4378 
012746 000012 MOV 012, -(SP) 
767 0000006 JSR PC, BL SMUL 
000542 010016 MOV RO, (SP) 
016746 0000006 MOV CLK. HERTZ, -(SP) 
000550 004767 0000006 JSR BL SDIV 
066700 0000006 ADD “RO 
010067 0000006 MOV RO, DATA4 
016716 000000G MOV TICKS, (SP) 4379 
000570 012746 001750 MOV #1750, -( 
000574 004767 JSR PC.BL$ 
010016 MOV RO. (SP) 
000602 016746 0000006 MOV CLK. HERTZ, -(SP) 
004767 000000G JSR BLS 
000612 7 0000006 MOV RO, DATAS 
000616 016716 000000G MOV DATA3, (SP) 4380 
016746 000000G MOV Aa. -(SP) 
12746 0000006 MOV OMSG PRO. TIME, -(SP) 
000632 012746 000003 MOV 03, -(SP.) 
000636 0 V SP ‘RO ; SP,e 
000640 104414 TRAP «44 
000642 062706 000026 12$: ADD 026, SP 4297 
032767 000001 0000006 138: BIT 01, RETRIES 4383 
000654 001402 BEQ 143 
000656 004767 0000006 JSR PC,00.RETRIES 
005767 0000006 14%: ‘TST NUM. RETRIES 4385 
000666 001402 BEQ 158 
000670 000167 177142 Me 23 
000674 022626 15s: CMP (SP)+,(SP)« 4256 
000676 012601 MOV (5P)-,R1 
000700 000207 RTS PC 
; Routine Size: 225 words, Routine Bese: ACSCODE + 17074 
; Meximum steck depth per invocetion: 16 words 
SBTTL 122 TEST SECTION 
177072 122:: 
1s: JSR PC, $122 4389 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 





3 Routine Size: 6 words, : 
; Meximum steck depth per invocetion: 2 words 


4391 1 H 
s $392 3 BGNTST; 
s 4393 3 ! TEST @23 - ONE TRACY SEEK TIMING TEST 


Routine Bese: ACSCODE - 17776 








N8 


E 
2RCFRS CZRCFCO RC2S FR END TEST 27-Mer-1985 15:27:28  VAX-11 Bliee-16 v4.0-57 eee ae 
VO3.0 TEST SECTION 27-Mar-1985 13:28:18  USER#1: [AZTEC -CZRCFC IZRCFC3.61654 (22) 
3 4394 3 ! 

i 4395 $f DESCRIPTION: 
: 4397 § THIS TEST BRINGS RCZ2S CONTROLLER AND SELECTED UNIT ONLINE. 
; 4399 3) ONE TRACK SEEK TIME IS THE AVERAGE OF ALL ONE TRACK SEEKS THAT 
; 400 3) 3 DO NOT INCLUDE A HEAD SWITCH, ALL FORWARD ONE TRACK SEEKS WILL 
| ome fF BE DONE AND TIMED AND THEN REVERSE ONE TRACK SEEKS WILL BE 
: 4a0e 3 DONE AND TIMED. AVERAGE TIME WILL BE REPORTED. 
; aoe 3 THIS ISA SINGLE SURFACE TEST. TOP SURFACE WILL BE USED UNLESS 
; 440s $Y TE OPERATOR CHOSE OTHERWISE. “SEEKS WILL BE FROM START TO THE END OF 
3 . 

pry; a 
; as 3 Tr THERE WAS AN ERROR, ERROR WILL BE REPORTED AND THE TEST ABORTED 
; 4409 3 : UNLESS RETRIES ARE TURNED ON 
; #410 3 : 
; #411 3 $.. 
; #412 3 
; 4413 3 ~~ Lebel 
3 4414 3 BLOCK1; 
3 4415 3 
: $416 $i .SUP_TRACE then PRINTF (0BN29); ! TEST 23 
; 4418 3 MUM_RETRIES + ZERO; 
; 4420 3 = while (.NUM_RETRIES lequ .SWP_RETRIES) do 
3 4421 4 begin 
; 4422 4 TIP = ALL_ONES; t THES FLAG INMIBTIS READ. Cho 
; 4823 4 ! WAITING FOR END PACKE 
: 4424 4 GET AZTEC READY FOR OPERATION 
; 4426 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 
s fase nag 

n 

; 4429 5 ERADF (77, AZT_READY_ERR, 0); ; 
: 4431 5 if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
i 443s 5 RETRIES » TRUE; ! SET RETRIES FLAG 
>; 436 5 end 
: 4435 4 else 
; 44% 4) OBLOCKI 
; #437 5 begin 
3 aa36 65 ' 
4439 5 BYTE COUNT » ZERO ! BYTE COUNTS ZERO 
; — ; ov. OESCRPTR = ZE ! CLEAR BUFFER DESCRIPTOR 
; 4ea2 5 LON. SZ + ,SIZ,L8N: ! LON SIZE TO INCREMENT TRACK 
; 4443 5 LON_ST © (. OFFSET + 0)e..8N aati ! STARTING LBN 
$30 8 pate tenED ° (OFFSET » Rooter Baréz, + ENDING LBN 
‘ eas 5 t INIT AND START THE CLOCK 
3 * 
: aap 5 CLOCK _INIT (); ! INIT CLOCK VARIABLES 
; 
; 4450 5 incru COUNT from 0 to 1 do ! DO FORWARD AND REVERSE 


i 








BDDOOOO OOOO OOD WD LWW WHO WWD IAD AHAAHHAMH AAA AMHAAMAHOH 





B9 


CZRCFCO RC2S5 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Blise-16 579 
TEST SECTION 27-Mer-1985 13:28:18 USER$1;: (AZTEC. CZRCEC JZRCFCS. 616;4 
begin ! ONE TRACK SEEKS 


qv 
? + a DIRECTION — FIRST AND THEN REVERSE SEEK 
! SECOND TIME AROUND THIS LOOP. 


4 
wr BOUND = ZERO; ! INITIALIZE COMMAND COUNT 
N_BOUND = ZERO; ! INIT RECEIVE COUNT 
! FILL THE COMMATCATION COMMAND RING SLOTS 
! WITH READ COMMAND 


incru I from 0 to SND_ALLOCATE - 1 do ! FILL COMMAND BUFFER WITH 
be ine SEEK COMMANDS (16 SLOTS 


‘ 
« ,LBN_ST; $ wer BE FILLED TO GET 
READ. CH CMO Os ! A QUEVE LENGTH OF 15) 
OUT_BOUND = .OUT_BOUND « 1; 
LBN-ST = .LBN_ST + .LBN_SZ; ! NEXT TRACK 
if GET_CMD_SLOT () then exitloop; ! GET NEXT COMMAND SLOT 


end; 
TEMP = .RC25_ADDR [RCIP, RC_ALL); ! READ IP FOR CONTROLLER START 
' POLLING 


' 
: FORWARD DIRECTION SEEK 


while .IN_BOUND lequ 820 do DO SEEK FROM STARTING TRACK 


begin 
if REC_STATUS () ! POLL RECEIVE RING FOR HOST 
! OWNERSHIP 
then ! IF ERROR, REPORT ERROR 


begin 
“IN t SAVE RECEIVE COUNT 
ERRDF (78, “hee. et ae ERR. 0) 

PRINTS (FMT11,” TEMP, .LBN ST) 

DECODE (); 

RETRIES = TRUE; 


Piece END PACKET STATUS 


leave BLOCK1; ! AND ABORT TEST 
end “ 
else 
begin 
while .QUT_BOUND lequ 820 do 
RERD” FILL_CMD (); ! GIVE NEXT SEEK COMMAND 
! AND MAINTAIN A QUEUE OF 15 


OUT_BOUND = .OUT_BOUND + 1; 
LBN_ST = .LBN_ST + .LBN_SZ; 


if GET_CMD_SLOT () then exitloop; 
if €,OUT_BOUND - .IN_BOUND) eqlu 16 then exitloop: 
end; 











S€0,0312 
0 22) 


4 
be 
AAG DDD HW PNMNMNAN MAMAN NIDA AAA OH 0 


‘CZRCFCO RC25 FR 


TEST SECTION 


: om hice seme AND ENDING LBN NUMBERS AND REDO 


END TEST 


a * .RC25_ADDR [RCIP, RC_ALL]; ! READ IP & CONTROLLER START TO POLL 
end; 


end; 


K SEEKS AS ar — 


L6N 
LBN_ 
LBN 


STOP THE CLOC 
' TOTAL SEEKS > 
DATA3 = 
DATA4 = 
DATAS . 
DATA3 = 
PRINTB 


-ST 


ED = (LOPFSET « 0)¢.LBN. SZ; + TO LOWEST ON THE SURFACE. 
- i; ! COMPLEMENT SIZE OF LBN 


_SZ = “not .SIZ_LBN) 


K 
= ZERO; 


2 gad 
(. Ft tee 


(MSG_SK_TIME, 


. SECONDS); 
5; 


3#100; 
ATAS + (.TICKS*300/(S¢.CLK_HERTZ 


-DATA4, .DATA3); 


if (.RETRIES) then DO_RETRIES (); 


if (.NUM_RETRIES eqlu ZERO) then exitloop; 


end; 


return; 
ENDTST; 


0000006 


000001 0000006 


001002 
177777 000000G 
000000G 


$T23: 





r+ jl ree TEST SECTION 
ae we E2 








C9 


27-Mer-1985 15:27:28 VAX-11 Bliss-16 V4.0 me y 


579 ege 118 
27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCECIERCFCS, B16;4 (22) 


! START FROM HIGH TRACK NUMBER 


! STOP THE CLOCK 
! TOTAL SEC. 

! REMAINDER 

: eee PER neeee 
is 

: 


100TH OF MSEC. /SEEK 
Bian & MESSAGE ‘AVERAGE SEEK TIME’ 


-(SP) 
a sie. TRACE 


#1. <5) (SP) 


17 
(SP)+,(SP)- 
NUM. RETRIES 
NUM. RETRIES, SUP. RETRIES 
16$ 
@-1,TIP 
PC,AZTEC.READY 
RO 
S$ 
5 


115 
ar) AERO Ee 








000 
026727 
101022 


CZRCFCO RC25 FR END TEST 


TEST SECTION 
000001 0000006 


000402 
000000G 001464 


4$; 


63: 


7$: 


8$: 
9$: 


10$: 


DY 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 


#1,RET.STATUS 
44 


PC ,DECODE 
— 


RO.LBN.ST 
OFFSET, (SP) 
01464, (SP) 
LON. SZ, -(SP) 
PC, BL $MUL 
RO.LBN.ED 

PC. CLOCK. INIT 
OUT . BOUND 

IN. BOUND 

LON. ST,CMD. REF 
PC, READ. CMD 
OUT . BOUND 
L6N.SZ,LBN. ST 
PC,GET.CMD.SLOT 
RO 

8$ 

Ri 

R1,017 

7$ 

@RC25. ADDR, 6(SP) 
6(SP). TEMP 

IN. BOUND , 01464 


PC,REC.STATUS 
RO 


10$ 
IN.BOUND, TEMP 
55 


116 
MSG. SEEK.ERR 


LBN.ST,(SP) 
EMP, -( SP) 
OFMTi1, -(SP) 
03, -(SP) 


14 


PC ,DECODE 
OF MED NaES 


13$ 
OUT . BOUND , #1464 
11$ 


VAX-11 Bliss- 
USER$1:[ 






E 4 
16 V4,0-579 a oo 11 

AZTEC.CZRCFC JZRCFC3.B16;4 (22) 

; 4431 











CZRCFCO RC25 FR END TEST 
TEST SECTION 


000000G 


000000G 
000000G 000000G 


0000006 
000005 





>, 


27-Mar-1985 15:27: 
27-Mar-1985 13:28: 


PC,READ.FILL.CMD 
OUT. BOUND 


LON.SZ,LBN. ST 
PC,GET.CMD. SLOT 


ORC25. ADDR, 10(SP) 
1ocSP), TEM? 


Lon .co +L On .St 


MUL 
RO.LBN.ED 
siz. LBN, RO 


RO,R1 
R 


R1,LBN. SZ 
SP) 


DATA3, (SP) 
0144, -(SP) 
PC .BL $MUL 


Trexs. (SP) 

0454 ,-(SP) 

PC, BL $MUL 

RO, (SP) 

CLK. HERTZ, -(SP) 
(SP) 









é SEQ 0315 
VAX-11 Bliss-1 579 Page 120 
USER$1: (AZTEC. CzRcee IZRCFCS, B16;4 (22) 
F 4497 
5 4499 
; 4500 
; 4502 
F 4504 
; *,RC.REG 4508 
; RC.REG,« 
; 4478 
3 4515 
3 4516 
, 4517 
, 4451 
3 COUNT 4450 
a COUNT o* 
3 4523 
; S2 









r? 





SEQ 0316 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0-579 Page 121 
v03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCJZRCFC3.B16;4 (22) 
000754 004767 0000006 JSR PC, BL $MUL 
000760 005726 TST Pp). 
000762 010016 MOV (SP) 
000764 004767 0000006 JSR PC. BLSOIV 
000770 066700 0000006 ADD DATAS, RO 
000774 010067 0000006 MOV DATA 
001000 016716 000000G MOV DATA3, (SP) 
16746 0000006 MOV DATA4. -(SP) 
001010 012746 000000G MOV G. SK. TIME, -(SP) 
001014 012746 000003 MOV 3,- 
010600 . 
001022 104414 TRAP) 
001024 062706 000034 13$: DD $34,SP 
001030 032767 000001 0000006 14$: BIT #1, RETRIES 
001036 001402 BEQ 15$ 
004767 0000006 JSR PC,D0.RETRIES 
1 005767 0000006 15$: TST NUM, RETRIES 
001050 001402 BEQ 
001052 000167 176762 23 
001056 022626 16$: CMP (SP)+,(SP)-+ 
001060 000207 RTS PC 


; Routine Size: 281 words, Routine Base: ACS$CODE + 20012 
; Maximum steck depth per invocation: 1 words 


-SBTTL 123 TEST SECTION 


000000 004767 176712 T23:: 

000000 i$ JSR PC,$T23 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 

; Routine Size: 6 words, Routine Base: ACSCODE + 21074 
; Maximum steck depth per invocation: 2 words 


; 4541 1 !<BLF /PAGE > 
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SEQ 0317 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bli Page 122 
v03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZ tec. C2RCECIZRCFCS. B16;4 (23) 
3 4542 1 ! 

; 4543 3 BGNTST; 

; 4544 3 

: 4545 3 Ses 

; 4546 ; TEST #24 - AVERAGE SEEK TIMING TEST 

; 4348 : DESCRIPTION: 

; 4330 3 THIS TEST BRINGS RC25 CONTROLLER AND SELECTED UNIT ONLINE. 

; 4552 3 : TE AVERAGE SEEK TIME IS THE AVERAGE TIME IT TAKES TO DO 

; 4553 3 : A SEEK GIVEN THAT IT IS EQUALLY LIKELY TO START ON ANY TRACK 

: 4354 3 AND ANY HEAD, AND EQUALLY LIKELY TO END ON ANY TRACK AND ANY 

; 4556 3 ' 

; 4557 3 ' ONE THOUSAND RANDOM SEEKS WILL BE DONE OVER THE 

; 4558 3 ' OF LBN TRACK 0 THRU LBN TRACK 1641 TO COVER BOTH SURFACES OF THE 

; 4559 3 ' SELECTED UNIT. FIRST TIME EXPRESS BIT IN COMMAND MODIFIER FIELD 

; 4560 3 ' FOR READ_CMD WILL BE SET SO THAT RANDOM SEEKS ARE TIMED AND 

; 4561 3 : IN THE S ME EXPRESS BIT WILL BE RESET SO THAT T 

; 4562 3 ‘ RANDOM LBN AVAILABLE TO THE CONTROLLER ARE ORDERED BY THE 

: 4363 3 CONTROLLER FOR SEEKS. AVERAGE TIME FOR BOTH CASES WILL BE REPORTED. 
; 4565 3 ' AN ERROR REPORT FOR THIS TEST WILL REPORT THE NUMBER OF SEEKS AND 
> 4566 3 ‘ DESIRED TRACK NUMBER. AFTER REPORTING A FAILURE THE DAIGNOSTIC WILL 
: 4367 3 7 PROCEED TO THE NEXT TEST UNLESS RETRIES IS TURNED ON 

; 4569 3 i. 

3 4570 3 

s 4571 3 abel 

3 4572 3 BLOCK1; 

3 4573 3 

; 4574 3 if .SWP_TRACE then PRINTF (DBM30); ! TEST 24 

; 4576 : NUM_RETRIES = ZERO; 

: 4378 : while. (.NUM_RETRIES lequ .SWP_RETRIES) do 

; 4580 4 GET BOP TEC READY FOR OPERATION 

; 4582 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 
; 4583 4 then 

3 4584 5 poaia 

; 4385 : ERRDF (79, AZT_READY_ERR, 0); ! 

; 4387 : if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
; 4589 5 RETRIES = TRUE; ! SET RETRIES FLAG 

3 4590 5 end 

s 4591 4 else 

; 4592 4 BLOCK1 : 

s 4593 5 begin 

$ 4594 5 ' 

; 4595 5 BYTE_COUNT = ZERO; ! BYTE COUNTS ZERO 

; 4296 2 BUF _DESCRPTR = ZERO; ' CLEAR BUFFER DESCRIPTOR 
; 5 


incru COUNT from 0 to 1 do 





— 





Se Se Se Se Ge Se SF Gt Gs SE Ge Gs GF Gs GE Ge Ge Gs SH Gs Ge GH GS Ge Ge Ge Gt GH GH Gs Gs GF Gs GF Gs Gs GF Os GS GF Gs Oe OF Gi OF Ge Oe Os © Ge Os oe oe Se os os o8 


— 
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FILL THE COMMUNICATION COMMAND RING SLOTS 


: WITH READ COMMANDS 
T_ BOUND = ZERO; ! 
N.BOUND = ZERO; ! 
tts = ALL_ONES; : 
P2 = . TICKS; H 


incru I from 0 to SND_ALLOCATE - 1 do 


LBN_ST = .P3; ! 
CMD“REF =’ .LBN_ST; tw 
READ_CMD (); ' 


OUT_BOUND = .OUT_BOUND + 1; 
if GET_CMD_SLOT () then exitloop; 


end; 


INIT AND START THE CLOCK 


CLOCK_INIT (); : 
TEMP = .RC25_ADOR [RCIP, RC_ALL]; ! 


while .IN_BOUND lequ 1000 do 
begin 


if REC_STATUS () H 
then 
begin. 
TE . IN_BOUND; 
ERRDF (80, ie SEEK oe 00k, 
PRINTB (FMT11, . TEMP, 
CODE (); 


DE 

RETRIES = TRUE; 

leave BLOCK1; ! 

end 

else | 

begin 

while .QUT_BOUND lequ 1000 do 
Hr 
RANDOM_NUM (); 
LBN_ST = .P3; H 
READ_FILL_CMD (); ! 


OUT_BOUND = 


! AND MAINTAIN A QUEUE OF 15 
.OUT_BOUND + 1; 


if GET_CMD_SLOT () then exitloop; 





' INIT RECEIVE COUNT 
! TELL READ.CMD NOT TO WAIT FOR 
' END PACKETS, 


FILL 
! SEEK COMMANDS (16 SLOTS 


! INIT CLOCK VARIABLES 


-ST); 


! GET RANDOM LBN 
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SEQ 0318 
RCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V 123 
Feet SeCTTON 27-Mar-1965 13:28:18 USER$1: AZTEC. CZRCECIZRCFCS. B16;4 798 (23) 
begin ! a FIND AVERAGE SEEK TIME 
: NEXT TIME FIND ORDERED AVERAGE 


SEEK TIME. 


INIT COMMAND COUNT 


COMMAND BUFFER WITH 


GET RANDOM LBN 
WILL BE FILLED TO GET 
LENGTH OF 15 


VE 
TISSUE READ COMMAND 


! GET NEXT COMMAND SLOT 


READ IP € CONTROLLER START TO POLL 
DO SEEK FROM STARTING TRACK 

POLL RECEIVE RING FOR HOST 
OWNERSHIP 

IF ERROR, REPORT ERROR 

! SAVE alee COUNT 


! DECODE END PACKET STATUS 
AND ABORT TEST 


GIVE NEXT SEEK COMMAND 








HPUWWNWE BH hh BNI D SIO AHAAHAAAAHAAHAS JIMDDwDwowowo 












19 


CZRCFCO 5 FR END TEST 27-Mar-1985 


SEQ 0319 
15:27:28 AX-11 Bliss-1 
TEST SECTI 27-Mar-1985 13:28:18 


P 124 
USERAI: (AZTEC. CZRCECIZRCFCS, B16;4 O98 23) 
if (.OUT_BOUND - .IN_BOUND) eqlu 16 then exitloop; 
end; 


oot * .RC25_ADDR [(RCIP, RC_ALL); ! READ IP &€ CONTROLLER START TO POLL 
end; 


end; 


STOP THE CLOCK 
, .CLK_CSR = ZERO; 


! TOTAL SEEKS = 
DATAS = (.MINUTES#60 + .SECONDS); 
DATA3 = .TICKS#100/.CLK_HERTZ; 


if .COUNT eqlu ZERO 
then 


STOP THE CLOCK 


MSEC. PER SEEK 
100TH OF M.SEC/SEEK 


SAVE AVE. SEEK TIME 


RESET EXPRESS BIT FOR 
READ COMMAND TO DO ORDERED SEEKS 


pease 

DATA2 = .DATA4; 
DATA1 = .DATA3; 
CMOD = ZERO; 


ra end; 


end; 
PRINTB (MSG_AVE_TIME, .DATA2, .DATA1); 
PRINTB (MES_SKO_TIME, .DATA4, .DATA3); 
end; 
if (.RETRIES) then DO_RETRIES (); 


if (.NUM_RETRIES eqlu ZERO) then exitloop; 


PRINT MESSAGE ‘AVERAGE SEEK TIME’ 
AVERAGE SEEK ORDERED TIME. 


end; 
return; 
ENDTST; 
.SBTTL $124 TEST SECTION 
0000006 $124: JSR R1, $SAVE2 
MP -($P), -(SP) 
000001 0000006 BI al, Sue. TRACE 
0000006 MOV t5BNs0 -(SP) 
000001 MOV #1, -(SP) 
MOV P'RO 
TRAP 
CMP (SP)+,(SP)+ 
1$: CLR NUM, RETRIES 
0000006 0000006 2$; CHP NUM, /RETRIES, SWP.RETRIES 


000626 JMP 18$ 





JI 


SEQ 0320 
ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0-579 Page 125 
v03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFC)ZRCFC3.B16;4 (23) 
004767 0000006 3$: JSR PC, AZTEC.READY , 4582 
- 006000 ROR RO 
103017 BCC 54 
104455 TRAP «5S ' 4585 
000117 .WORD 117 
“ “WORD AZT. READY.ERR 
000000 “ WORD 
032767 000001 0000006 BIT #1,RET. STATUS ; 4587 
001402 BEQ 4$ 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 4s: MOV 01 .RETRIES ; 4589 
000167 000532 JMP 63 ; 4582 
005067 0000006 S$; CLR BYTE .COUNT : 4595 
005067 0000006 CLR BUF . DESCRPTR ; 4596 
005002 CLR R2 ; COUNT 4598 
005067 0000006 6$: CLR OUT. BOUND ; 4605 
7 CLR IN. BOUND ; 4606 
012767 177777 000000G MOV 6-1, TIP ; 4607 
016767 0000006 MOV TICKS, P2 ; 4609 
005001 CLR 1 ; 1 4611 
004767 0000006 7$: JSR PC ,RANDOM. NUM ; 4613 
016767 000000G 0000006 MOV P3.LBN.ST ; 4614 
016767 0000006 0000006 MOV LON. ST,CMD.REF ; 4615 
004767 0000006 JSR PC,READ.C ; 4617 
005267 0000006 INC OUT. BOUND ; 4618 
004767 000000G JSR PC,GET.CMD.SLOT ; 4620 
006000 ROR RO 
103404 BLO 8$ 
1 INC Ri 
127 000017 CMP R1,017 
101754 BLOS =s7$ 
004767 0000006 8S: JSR PC, CLOCK. INIT 
017716 0000006 MOV arC25.AD0R, (SP) 
011667 0000006 MOV (SP) 
026727 0000006 001750 9$: CMP IN. BOUND , 01750 
101076 BHI 1 
767 0000006 JSR PC REC. STATUS 
ROR RO 
103033 BCC 10$ 
016767 0000006 0000006 MOV IN. BOUND, TEMP 
104455 TRAP «455 
000120 .WORD 120 
“WORD MSG.SEEK.ERR 
000000 “WORD 0 
016746 0000006 MOV LBN.ST, -(SP) 
016746 0000006 MOV TEMP, -(SP) 
012746 0000006 MOV OFMTi1, -(SP) 
012746 000003 MOV 03, -(SP) 
010600 MOV SP RO 
104414 TRAP = 14 
062706 000010 00 #10,SP 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 MOV 01.RETRIES 
162706 000016 SUB #16,5P 
000536 BR 158 
026727 0000006 001750 10$: CMP OUT . BOUND, #1750 
101024 BHI 11$ 














CZRCFCO RC25 FR END TEST 
TEST SECTION 


000000G 
000000G 000000G 


000000G 000002 118: 
0000006 


000000G 12s: 


000010 138; 


000016 15$: 
1 000000G 16$: 


0000006 17$: 


18$: 


14$; 





K9 


27-Mar-1985 15:27 
27-Mar-1985 13:28: 


PC, RANDOM. NUM 
,LBN, ST 

PC. READ. FILL.CMD 

PC .GET.CHO. SLOT 


:28 
18 


aRces. fo 2(SP) 
al ),7 


RO, (SP) 
CLK. et” (SP) 
PC,BLSDIV 
RO,DATAS 

R2 


13$ 
DATA4 ,DATA2 
DATA3,DATAL 


14 

DATA3, (SP) 

DATA4, -(SP) 

OMES .SKO. TIME, -( SP) 
03,-(SP) 


016,SP 

01, RETRIES 
PC,00.RETRIES 
NUM. RETRIES 


es 
(SP )+,(SP)- 








a S€0,0321, 
Tec ezackeiznercs.e16,4 °° 388 


> -t 
N-- 
me 


*,RC.REG 
RC.REG,* 


; COUNT 


COUNT 
; COUNT,+* 


; SP, 


; SP,« 





Pale <i 2x mei L9 


ZRCFR3 CZRCFCO Rtes FR END TEST 27-Mar-1985 15:27:28 X-11 Bli 
VO3.0 . TEST SECTION 27-Mar-1985 13:28:18 YSeRet fa 
000704 000207 RTS PC 
; Routine Size: 227 words, Routine Base: ACSCODE + 21110 
; Maximum stack depth per invocation: 14 words 
.SBTTL 124 TEST SECTION 
000000 004767 177066 124:: 
000000 1$: JSR PC, $724 : 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 
; Routine Size: 6 words, Routine Base: ACSCODE + 22016 


; Meximum steck depth per invocetion: 2 words 


; 4697 1 !<BLF /PAGE > 





98-16 V4.0-579 
TEC. CZRCFCIZRCFC3.616;4 





SEQ 0322 
(23) 


4695 





M9 | 
CO_RC2S FR END TEST 27-Mar-1985 15:27:28 VAX-11 Blige-16 nay my? 

RCF sate ath mo 
Test SeCTI 57-Mar-1985 13:28:18  USERSI:(AZTEC-CZRCFC J2RCFC3.B16,4 (das 


OF SS SE SS GS SF GF Ge SF GS GE SF Ge Ge GF Ge GF Ge Ge Ge SF Ge GF GF OF GF GF Ge Gs Ge Ge OF Ge GF GS GF GF GF OF GF OF Os Ge OF OF Oe Gs Os oo Oe Oe 6 OF Os 6 Os oo 


i 
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' 
BGNTST; 


fee 

TEST @25 - FULL STROKE SEEK TIMING TEST 

! DESCRIPTION: 

‘ THIS TEST BRINGS RC25 CONTROLLER AND UNIT ONLINE. 


THE FULL STROKE SEEK TIME IS THE eres TIME OF 1000 FULL STROKE 
SEEKS THAT DO NOT INVOLVE HEAD SWITCHE 


a 
£ 
J 
7 
7 
iM 
8 
: THIS 1S A SINGLE SURFACE TEST. TOP SURFACE WILL BE USED UNLESS THE 
OPERATOR CHOSE OTHERWISE 

a 

. 

, 

J 


THE ERROR REPORT WILL INCLUDE NUMBER OF SEEKS AND DESIRED TRACK 


NUMBER. AFTER FAILURE, THE TEST WILL BE ABORTED UNLESS RETRIES 
ARE TURNED ON. 


if .SWP_TRACE then PRINTF (D0BM31); ! TEST 25 
NUM_RETRIES © ZERO; 
while (,.NUM_RETRIES lequ .SWP_RETRIES) do 


im 
8's tTELL READ,CMD NOT TO WAIT FOR 
’ saree: * RECEIVE STATUS 
! GET AZTEC READY FOR OPERATION 
if AZTEC_READY () ! IF FAILURE REPORT ERROR 
— é 
in 
EREOF (81, AZT_READY_ERR, 0); 
if .RET_STATUS then DECODE (); § DECODE THE STATUS, IF ANY 
RETRIES = TRUE; ° ' SET RETRIES FLAG 
end 
else 
BLOCK, : 
. begin 
! SEEK BETWEEN BEGINNING TRACK AND ENDING TRACK 
o) 
: YTE_COUNT = ZERO ! BYTE COUNTS ZERO 
BF CRESCRPTR ZERO; i CLEAR BUFFER DESCRIPTOR 


: ate Tie COPMMATCATION COMMAND RING SLOTS 

! WITH OMMA 
LON_SZ = .SIZ_LBN; ! LON _INCKEMENT SIZE 
OUT BOUND = ZERO; ! INIT COPMAND COUNT 








r N9 


ZRCFBS CZRCFCO RC25 FR END TEST 27-Mer-1985 15:27:28 VAX-11 Bli 
vo3.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1;: (AZ 


IN_BOUND = ZERO; ! INIT RECEIVE COUNT 


incru I from 0 to SND_ALLOCATE - 1 do ! FILL COMMAND BUFFER WITH 
‘begin ! SEEK COMMANDS (16 SLOTS) 


if .OUT_BOUND then LBN_ED = 820 else LBN_ED = 0; 


LON_ST = (. Ponty, ¢ .LBN_ED)©.LBN_SZ ! GET STARTING LBN 
CMO_REF = .LBN_S : 


ites SEQ, 0324 
AZTEC, Me aRCEC IRF CS. B16;4 08 24) 


w 
o 
—~ 
s 
a 
m be 
> 
i=) 
- 
=“ 
3<8 
r 
o 
m 


AN 6 
OUND IN RECEIVE i 


READ CMO (); ! ISSUE READ COMMA\ 


OUT_BOUND = .OUT_BOUND - 1; 
if GET_CMD_SLOT () then exitloop; 
end; 


GET NEXT COMMAND SLOT 


4 
INIT AND START THE CLOCK 


CLOCK_INIT () 
TEMP = 


INIT CLOCK VARIABLES 
'RC25_ADDR [RCIP, RC_ALL); 


READ IP € CONTROLLER START TO POLL 


stg epee lequ 1000 do DO SEEK FROM STARTING TRACK 
in 


if REC_STATUS () POLL ante ite FOR HOST 
IF ERROR, REPORT ERROR 


then 

rhe". ! SAVE RECEIVE COUNT 
“Poe SC. SEEK, EAR. OD! 
i 


RROF (32. 
SRINTe (FTL, . TEMP, 
DECODE (); ' DECODE END PACKET STATUS 
RETRIES = TRUE; 
leeve BLOCK1; ! AND ABORT TEST 
end 


else 
begin 
while mn .BOUND leau 1000 do 


"ST = (.OFFSET + .LBN_ED).LON_SZ ! GET STARTING LON 
READ FILL CMO CD; 1 TSSUE READ COMMAND 
OUT BOUND"= out 


BLOCK2 : 


"BOUND + 1; 


5585 


if .OUT_BOUND then LBN_ED + 8620 else LBN_ED = 0; 
if GET_CMD_SLOT () then leave BLOCK2; ! GET NEXT COMMAND SLOT 
if (.0UT_BOUND - .IN_BOUND) eqlu 16 then leave BLOCK2; 

! MAINTAIN A QUEVE LENGTH OF 15 


~ 
S ® 
4@OOOE00000000 14 SSNS SSP PDA ADD NNN NNN AAARAAAAOHAOAOOUUIU 


Nn SS PS PSG RS SSH HHHHHSHSHSHSHKHHGSHNHHKHHHHAH OOO OOO & 
co 
od 
@ 
w 


es 
-o 


end; 


rr 








> 
HAWS BD BH BPMNMAMAMAMNMNUUUI UID OA ~ 







B10 


CZRCFCO RC2S FR END TEST 27-Mer-1985 15:27:28  VAX-11 Bli 579 oy 
TEST SECTION 37-Mer-1985 13:28:18  USERS1:(AZTEC, tC ORCEC IZRCFCS. B16;4 (24) 
end; 
TEMP = .RC25_ADDR (RCIP, RC_ALL]; READ IP_AND CONTROLLER WILL 
! START TO POLL 
end; 
4 
t STOP THE CLOCK 
‘ .CLK_CSR = ZERO ! STOP THE CLOCK 
: TOTAL SEEKS = 1000 
DATA4 = .MINUTES*60 + .SECONDS; ' MSEC. /SEEK 
DATAS = .TICKS*100/.CLK HERTZ; ! 100TH OF MSEC. /SEEK 
PRINTB (MG.SKF.TIME, .DATA4, .DATA3); PRINT MESSAGE ‘AVERAGE SEEK TIME’ 
z end; 


if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 


end; 

return; 
ENDTST; 

.SBTTL $125 TEST SECTION 

$125: MOV Ri, -(SP) 

CMP -(§P), -(SP) 
000001 0000006 BIT 01,SWP. TRACE 

MOV @0BM31, -(SP) 
000001 MOV #1,-(SP 

MOV SP,.RO 

TRAP =: 17 

CMP (SP)+,(SP)- 
0000006 1$ CLR NUM. RETRIES 
0000006 0000006 2$ CHP NUM. RETRIES, SWP.RETRIES 
000652 22$ 
177777 0000006 3$; MOV @-1,TIP 
0000006 JSR —s- PC, AZTEC. READY 

ROR RO 

BCC S$ 

TRAP 3 s«55 

.WORD 121 

- WORD AZT.READY.ERR 
000001 0000006 IT #1, RET. STATUS 
0000006 JSR PC, DECODE 
000001 0000006 43: MOV #1.RETRIES 
000550 JMP 208 
0000006 S$: CLR BYTE. COUNT 
0000006 CLR BUF . DESCRPTR 






C10 


ZRCFBS CZRCFCO RC2S FR END TEST 27-Mer-1985 15:27: 
v03.0 TEST SECTION 27-Mar-1985 13:28 


SEQ 0326 
:28 579 131 
:18 NCZRCFC JZRCFCS. B16;4 (24) 


~ 
On 
3 





000136 016767 0000006 0000006 MOV S1Z.LBN,LBN. SZ 
000144 005067 0000006 CLR OUT . BOUND 
000150 005067 0000006 CLR IN. BOUND 
000154 005001 CLR Ri 
000156 032767 000001 0000006 6$: BIT #1, 0UT. BOUND 
000164 001404 BEQ 7 
166 012767 001464 0000006 MOV 01464,LBN.ED 
000174 000402 BR BE 
000176 005067 0000006 7$: CLR LBN.ED 
000202 016746 000000G 8$: MOV OFFSET, -(SP) 
066716 0000006 ADD LBN.ED, (SP) 
000212 016746 000000G MOV BN. SZ, -(SP) 
000216 767 0000006 JSR MUL 
000222 010067 000000G MOV RO.LBN. ST 
016767 0000006 0000006 MOV LBN.ST,CMO.REF 
000234 767 0000006 JSR p 
000240 005267 0000006 INC : 
000244 004767 000000G JSR PC,GET.CMD. SLOT 
000250 ROR RO 
000252 103002 BCC 9$ 
000254 022626 CMP (SP)+,(SP)« 
000256 000405 BR 0 
000260 022626 94: CMP (SP)+,(SP)-« 
000262 005201 INC R 
000264 020127 000017 CMP R1,017 
000270 101732 BLOS 6s 
000272 004767 0000006 10$: JSR CLOCK. INIT 
000276 017716 0000006 MOV antes. ADOR , (SP) 
000302 011667 0000006 MOV 
026727 0000006 001750 11$: CMP IN. F BOUND, 61750 
000314 101123 BHI 
000316 004767 000000G JSR PC,REC. STATUS 
000322 006000 ROR RO 
103033 BCC 12$ 
000326 016767 0000006 0000006 MOV IN. BOUND, TEMP 
000334 104455 TRAP 3—s«5S 
000336 000122 .WORD 122 
340 "WORD MSG.SEEK.ERR 
000342 000000 “WORD 
016746 0000006 MOV LBN.ST, -(SP) 
000350 016746 0000006 MOV TEMP, -(SP) 
000354 012746 000000G MOV OFMTi1, -(SP) 
000360 012746 000003 MOV 03, -(SP) 
000364 010600 MOV SP RO 
000366 104414 TRAP = 44 
000370 062706 000010 ADD 010,SP 
000374 004767 0000006 JSR PC, DECODE 
000400 012767 000001 0000006 MOV #1,RETRIES 
000406 162706 000016 SUB 016,SP 
000412 000527 BR 19$ 
000414 026727 0000006 001750 12%: CMP but. BOUND, #1750 
000422 101051 BHI 17$ 
000424 016746 0000006 MOV OFFSET, -(SP) 
000430 066716 0000006 ADD LBN.ED, (SP) 
000434 016746 000000G MOV LBN.SZ, -(SP) 
000440 004767 0000006 JSR PC, BL $MUL 
000 010067 0000006 MOV RO,LBN. ST 








D10 





SEQ 0327 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4,0-579 age 132 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCIJZRCFC3.616;4 (24) 
50 004767 0000006 JSR PC,READ.FILL.CMD : 4801 
1005267 000000G INC OUT. BOUND i 4802 
000460 , 082767 000001 0000006 BIT #1, 0UT. BOUND : 4804 
’ 001404 BEQ 133 . 
012767 001464 0000006 MOV $1464 ,LBN.ED 
000402 BR 143 
005067 0000006 13s: CLR LON.ED . 
004767 0000006 14%: JSR PC,GET.CMD.SLOT ; 4806 
000 . - ROR RO 
103002 BCC 15$ 
022626 CMP (SP)+,(SP)+ 
000413 BR 74 
016700 0000006 15$: MOV IN. BOUND ,RO : 4808 
062700 000020 ADD #20,R0 
026700 0000006 CMP OUT . BOUND , RO 
001002 BNE 16% 
022626 CMP (SP)+,(SP)-+ 
000402 BR 7 
022626 16$: CMP (SP)+,(SP)- : 4799 
000723 BR ; 4798 
017766 0000006 000002 17$: MOV BRC25. ADDR, 2( SP) ; #,RC.REG 4815 
016667 000002 0000006 MOV 2(SP), TEMP ; RC.REG,* 
000651 BR 11$ ; 4780 
005077 0000006 18%: CLR ack j 
016746 0000006 MOV MINUTES, -(SP) ; 
012746 000074 MOV 074, -(SP 
004767 0000006 JSR PC, BL MUL 
066700 0000006 ADD SECONDS ,RO 
0000006 MOV RO, DATA4 
016716 0000006 MOV TICKS, (SP) 
012746 000144 MOV 0144, - 
004767 JSR »BL$ 
010016 MOV 
016746 0000006. MOV CLK.HERTZ, -(SP) 
004767 0000006 JSR PC, BLSDIV 
0000006 MOV RO, DAT 
016716 0000006 MOV DATA3, (SP) 
016746 0000006 MOV. DATA4.-( SP) 
012746 0000006 MOV OMG. SKF. TIME, -(SP) 
012746 000003 MOV 03, -(SP) 
010600 MOV SP,RO 
104414 TRAP «14 
062706 000016 19$: ADD 016,SP 
032767 009001 0000006 20$: BIT  @1,RETRIES 
704 001402 “© BEQ 
706 004767 0000006 JSR PC, DO.RETRIES 
712 005767 0000006 21$: TST NUM. RETRIES 
716 001402 BEQ 22$ 
20 000167 177112 JMP 24 
724 022626 22s: CMP (SP)+,(SP)« 
726 012601 MOV (SP)+,R1 
730 000207 RTS PC 


; Routine Size: 237 words, Routine Base: ACSCODE + 22032 
3; Maximum steck depth per invocetion: 12 words 





000010 
000012 


: Routine Size: 
; Maximum stack 


- 


004767 


104466 


006000 
103773 
000207 


OD lh oh oh oh oh oh ah ah ph ah eh el eh oleh lahat le nine iene in in inion 


CZRCFCO RC2S FR END TEST 27-Mar-19 
TEST SECTION 27-Mar-19 


177042 T25:: 
1$: JSR PC, $725 ; 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 
6 words, Routine Base: ACS$CODE + 22764 


depth per invocation: 2 words 


BGNTST; 
! TEST @26 - WRITE DATA TEST 
DESCRIPTION: 


ba OS OS Oe OS OS OS OS PCOS CSCS tS CSCS tS tCStaetaertetararartarea 


TIP = 26; 
! GET AZTEC READY FOR OPERATION 
iene tata () ' IF FAILURE REPORT ERROR 
n 





abel 
BLOCK1; 
if .SWP_TRACE then PRINTF (DOBM32); ! TEST 26 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 





E10 


SEQ 0328 


oo 
vin 
—— 
wu 
ror 


:27:28 X-11 Plies 9-16 V 
:286:18 USER $1: (AZTEC. cence IZReFC3, B16;4 


.SBTTL T25 TEST SECTION 


THIS TEST BRINGS RC25 CONTROLLER AND SELECTED UNIT ONLINE. 
THEN LOADS OM CODE VECTOR ARRAY DM_26 TO THE CONTROLLERS 
MEMORY BY ISSUING EX_SUP_PROG COMMAND. 


THE DMCODE GETS THE UNIT NUMBER FROM THE HOST AND ATTEMPTS 
TO FIND AT LEAST ONE GOOD DIAGNOSTIC BLOCK ON EACH SURFACE 
OF b+ a hh Wr be ict tes chen MAKE SURE THAT DMCODE CAN READ 


ET T HEADS 
WORKING PROPERLY. FIRST TOP CORFAGE WILL BE ATTEMPTED WITH 
ALL ONES DATA AND SECOND ALL ZERO DATA. THIS WILL BE 
REPEATED FOR BOTTOM SURFACE AS WELL. THE DATA WRITTEN WILL BE 
READ AND COMPARED. 


THE ERROR REPORT ON THIS TEST WILL ee | DATA wn ata’ DATA READ 
PLUS THE TRACK, HEAD AND SECTOR NUMBER. ALSO ERROR si io 

FROM THE MICRO CODE IF ANY WILL BE REPORTED. ERROR STATUS OF 

ZERO WILL MEAN OTHER ERRORS TRAPPED IN DMCODE. AFTER REPORTING 
THE ERROR THE REST OF THE TEST WILL BE ABORTED UNLESS THE OPERATOR 
SELECTS RETRIES. 


in 


begin 


F10 





SEQ 0329 


if ,RET_STATUS then DECODE (); DECODE STATUS 


ZRCFR3 Gener ee atee FR END TEST 27-Mar-1985 15:27:28 VAX-11 Blies-16 age 134 
vo3.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CoRCEe IZREF C3. B16;4 (24) 
; abe 3 ERRDF (83, AZT_READY_ERR, 0); ! 

3 

3 rt 3 if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 

>; 4885 5 RETRIES = TRUE; ! SET RETRIES FLAG 

>; 4886 5 end 

; 4887 4 else 

; 4888 4 BLOCK1i : . 

>; 4889 5 begin 

3 4890 5 ! 

>; 4891 5 ! ISSUE AN EX_SUP_PROG COMMAND WITH START ADDRESS OF 

; 4892 5 ! DM_26 VECTOR ARRAY AND BYTE COUNT. 

>; 4893 5 CMD_REF = .CMD_SLOT; ! COMMAND REFERENCE NUMBER 

>; 4894 5 BUF DESCRPTR = DM 26; ! DMCODE STARTING ADDRESS 

; a0%3 ; BYTE_COUNT = 41382; ! BYTE COUNTS VER:C 

; 4897 5 if EX_SUP_PRG () ' ISSUE AN EXECUTE SUPPLIED COMMAND 
>; 4898 5 then ! REPORT IF FAILED 

>; 4899 6 begin 

3 oeel : ERRDOF (84, EXE_SUP_ERR, 0); 

3 pe ; if .RET_STATUS then DECODE (); ! DECODE STATUS 

>; 4904 6 RETRIES = TRUE; 

; 4905 6 leave BLOCK1; ! ABORT TEST 

3 4906 5 end; 

; 4907 5 

>; 4908 5 CMD_REF = .CMD_SLOT; ! COMMAND REFERENCE 

; 4909 5 +4 “DESCRPTR = “UNIT; ! DESCRIPTOR ADDRESS 

; ro : YTE_COUNT = 02; ! TOTAL BYTES TO BE TRANSFERRED 
> 4912 5 if SEND_DATA () ' ISSUE SEND DATA COMMAND 

; 4913 5 then ' IF STATUS BIT INDICATES ERROR 
; 4914 6 begin ! THEN REPORT ERROR 

3 it . ERRDF (85, SND_DATA_ERR, 0,; H 

3 1 

; res $4 : if .RET_STATUS then DECODE (); ' DECODE RETURN STATUS 

$ 1 

; 4919 6 RETRIES = TRUE; 

5 4920 6 leave BLOCK1; 

; 4921 5 end; 

; 4922 5 

; 4923 5 : ISSUE A REC_DATA COMMAND AND WAIT FOR END PACKET 

3; 4924 5 TO GET THE STATUS SENT BY OM CODE AFTER DOING 

; 4925 5 ! HEAD SWITCH TEST. 

>; 4926 5 CMD_REF = “CMD_SLOT ; ! COMMAND REFERENCE @ 

; 4927 5 BUF _DESCRPTR = RCV_DATA_BUF [0]; ! SET THE BUFFER AREA TO 

; 4928 5S ! RECEIVE 6 WORDS FROM DM CODE 
s rt 34 : BYTE_COUNT = 12; ! SET BYTE COUNTS = 12 

; 4931 5 if REC_DATA () ' SEND A RECEIVE DATA COMMAND 
3 4932 5 then 

; 4933 6 begin ! IF FAILURE REPORT ERROR 

; 4934 ° ERRDF (86, RE_DATA_ERR, 0); 

3 

$ 6 

3 6 








ZRCFBS 
VO3.0 


oe G6 Ge Gt GF Gt Ge Gt Gt GF GS Ge GH Ge Gt Ge GH GH GH Ge Gt Ge Ge Ge Ge as oF 
> 
wo 


NWN BP PHS PNUIAPDAAAAAA MUNIN 


032767 


012767 





G10 


27-Mar-19 


RC25 FR END TEST 
TI 27-Mar-19 


@o 
uit 
ome 


VAX-11 Phise 
USER$1: (AZTE 
RETRIES = TRUE; 
leave BLOCK1; 
end; 
! CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR 


att oral [0] nequ #0'177777' ! IF NOT SUCCESS, REPORT ERROR 


! REPORT WRITE ta FAILURE 
-RCV_DATA_BUF 3}? 
»RCV V_DATA_BUF a), -RCV_DATA_BUF [5]); 
! TRACK NUMBER 
iVER:C 


nen} 
ERMOF (87, MSG_WRITE_ERR, 
PRINTB (FMT16, .RCV_DATA. ‘eye! ai. 
PRINTB (FMT17, .RCV_DATA_BUF [3], 
PRINTB (FMT20, .RCV_DATA_BUF [0])); 
RETRIES = TRUE; 
end; 

end; 
if (.RETRIES) then DO_RETRIES (); 


if (.NUM_RETRIES eqlu ZERO) then exitloop; 


end; 

return; 
ENDTST; 

.SBTTL $T26 TEST SECTION 
000001 000000G $726: Sze #1,SWP. TRACE 
000000G MOV @DBM32,-(SP) 
000001 MOV #1,-(SP) 

MOV SP ,RO 

TRAP 17 

CMP (SP)+,(SP)-+ 
000000G 1$: CLR NUM, RET RIES 
000000G 000000G 2$: CMP NUM.RETRIES,SWP.RETRIES 

me 
000032 000000G 3$: MOV #32,TIP 
0000006 JSR PC ,AZTEC.READY 

ROR RO 

BCC 5$ 

TRAP 55 

-WORD 123 

WORD AZT.READY.ERR 

-WORD 0O 
000001 000000G 2M $4 ET STATUS 
000000G JSR PC ,DECODE 
000001 000000G 4$: Ba. o4 Ae nEeS 

5$: MOV CMD.SLOT,CMD.REF 

000000G 000000G MOV #0M.26,BUF .DESCRPTR 
001472 000000G MOV $1472,BYTE.COUNT 








—, 0330 


9-16 V4.0 age 1 
eat EY 


579 35 
ec. CZRCECIZRCFCS. B16;4 ) 


! PRINT UNIT, HEAD AND 





H10 


SEQ 0331 

ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 11 Bliss-16 V4.0-579 Page 136 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USERS: [AZTEC CZRCFC JZRCFC3.B16;4 (24) 
000140 004767 0000006 JSR PC, EX. SUP. PRG , 4897 
000144 006 ROR RO 
000146 103016 BCC 7$ 
000150 104455 TRAP = 55 : 4900 
000152 000124 .WORD 124 
000154 0000006 “WORD EXE.SUP.ERR 
000156 000000 . WORD 
000160 032767 000001 0000006 BIT 61,RET. STATUS ; 4902 
000166 001402 BEQ 6$ 
000170 004767 0000006 JSR PC ,DECODE 
000174 012767 000001 0000006 6$: MOV #1, RETRIES ; 4904 
000202 000541 BR ; 4899 
000204 016767 0000006 0000006 7$: MOV CHD. SLOT CHD. REF i 4908 
000212 012767 0000006 000000G MOV OUNIT Bur ADESCRPTR ; 4909 
000220 012767 000002 0000006 MOV 62,BYTE. ; 4910 
000226 004767 000000G JSR PC, SEND. ‘BATA ; 4912 
000232 006000 ROR RO 
000234 103016 BCC 9$ 
000236 104455 TRAP = 555 : 4915 
000240 000125 .WORD 125 
000242 “WORD  SND.DATA.ERR 
000244 000000 ; WORD 
000246 032767 000001 0000006 BIT $1,RET. STATUS ; 4917 
000254 001402 BEQ 8$ 
000256 004767 0000006 JSR PC ,DECODE 
000262 012767 000001 0000006 8$: MOV #1, RETRIES ; 4919 
000270 000506 BR 12% i 4914 
000272 016767 0000006 0000006 9$: MOV CMD. SLOT, CMD. REF ; 4926 
000300 012767 0000006 0000006 MOV RCV. DATA. BUF ,BUF .DESCRPTR ' 4927 

306 012767 000014 0000006 MOV 014, BYTE. count ; 4929 
000314 004767 0000006 JSR PC,REC.DATA ; 4931 
000320 006000 ROR 
000322 103016 BCC 11$ 
000324 104455 TRAP = 55 
000326 000126 .WORD 126 
0002730 0000006 “WORD RE.DATA.ERR 
000332 000000 “WORD 
000334 032767 000001 0000006 BIT #1,RET. STATUS 
000342 001402 BEQ 10$ 
000344 004767 0000006 JSR PC ,DECODE 
000350 012767 000001 0000006 10$: MOV #1,RETRIES 
000356 000453 BR 12$ 

026727 000000G 177777 11$: CMP RCV. DATA. BUF, 0-1 
001447 BEQ 12$ 

000370 104455 TRAP 
000372 000127 .WORD 127 
000374 0000006 “WORD MSG.WRITE.ERR 
000376 000000 “WORD 0 
000400 016746 0000046 MOV RCV. DATA. BUF +4, -(SP) 
000404 016746 0000026 MOV RCV. DATA. BUF +2, -( SP) 
000410 012746 0000006 MOV OFMT16, -(SP) 
000414 012746 000003 MOV #3, -(SP) 
000420 010600 MOV SP RO 
000422 104414 TRAP = 14 
000424 016716 0000126 MOV RCV. DATA. BUF +12, (SP) 
000430 016746 0000106 MOV RCV. DATA. BUF +10, - (SP) 
000434 016746 000006G MOV RCV. DATA. BUF +6, -(SP) 








; Routine Size: 
3; Meximum stack 


000000 
000000 
000004 
000006 
000010 
000012 


: Routine Size: 
; Maximum stack 


012746 
012746 


004767 
104466 
006000 
103773 
000207 


; 4965 1 


CZRCFCO RC2S FR END TEST 
TEST SECTION 


000000G 
000004 
0000006 
0000006 
000002 
000001 000000G 
000024 
000001 000000G 12$: 
0000006 
000000G 13$: 
177276 
14$: 
175 words, Routine Base: 
depth per invocation: 12 wor 
177236 T26:: 
1$: 


Routine Base: 
2 words 


6 words, 3 ~ 
depth per invocation: 


'<BLF /PAGE> 





Ah ty. 


ds 








I10 


VAX-1 


27-Mar-1985 1 
USER$1: 


27-Mar-1985 


OFMT17,-(SP) 
MOV 04, -(SP) 


: SEQ 0332 
Bliss-16 V4.0-579 age 137 
CAZTEC.CZRCFCJZRCFC3.816;4 (24) 





MOV SP ,RO H SP ,* 
TRAP} 

MOV RCV. DATA. BUF, (SP) 
MOV OFM720, -(SP) 

MOV @2,-(SP) 

MOV SP-RO 

TRAP = (14 

MOV #1,RETRIES 

ADD 024,SP 

BIT #1, RETRIES 

BEQ 133 

JSR PC,DO.RETRIES 

TST NUM, RETRIES 

BEQ 1 

JMP 2s 

RTS PC 


ACSCODE + 23000 


SBTTL 126 TEST SECTION 
JSR PC, $726 
TRAP 66 
ROR RO 
BLO 1$ 
RTS PC 


ACSCODE + 23536 


<V 

















J10 


CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-41 B 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USER$1:(AZ 






SEQ 0333 
lis 2-18 579 Page 138 
AZT Cc CZRCEC JZRCFCS, B16;4 (25) 


> 4966 3 BGNTST; 
; 4967 3 

; 4968 3 Yee 

> 4969 3 ' TEST #27 - OFFSET TOLERANCE TEST 

3 4970 3 ' 

j 4971 3 DESCRIPTION: 

; 

; 4973 3 : THIS TEST BRINGS RC25 CONTROLLER AND THE UNIT ONLINE AND LOADS 

; 4974 3 ‘ DM PROGRAM 0M_27 VECTOR ARRAY INTO CONTROLLER’S MEMORY FOR 

; 4975 3 EXECUTION BY resurne EX_SUP_PROG COMMAND. 

; 4977 3 ' THE DM CODE WILL DO AN OFFSET TOLERANCE TEST. A GOOD ODD BLOCK WILL 
; 4978 3 ' BE FOUND IN TRACK 829 (DBN TRACK). IT WILL BE READ WITH INCREASING 
; 4979 3 ' - s AND - OFFSET, UNTIL A HARD ERROR IS FORCED. THE OFF SET VALUE USED 
; 4980 3 IN THE LAST GOOD READ WILL BE SENT TO HOST PROGRA 

; 

; 4982 3 : THIS TEST WILL BE PERFORMED ON TOP SURFACE OF THE UNIT 

: 4983 3 BEING TESTED. 

H 

; 4985 3 : A MESSAGE REPORT ON THIS TEST WILL INCLUDE THE LARGEST OFFSET VALUE 
; 4986 3 5 USED IN ORDER TO READ THE BLOCK WITHOUT FORCING ERRORS. 

; 4988 3 !- 

; 4989 3 

3 4990 3 abel 

3 4991 3 BLOCK1; 

; 4992 3 

; 4993 3 if .SWP_TRACE then PRINTF (DBM36); ! TEST 27 

; 4995 3 NUM_RETRIES = ZERO; 

; 4997 3 while (.NUM_RETRIES lequ .SWP_RETRIES) do 

3 4998 4 bogie 

; 4999 4 TI 27; 

; 3000 ‘ ! GET AZTEC READY FOR OPERATION 

F} 1 

; 5002 4 if AZTEC_READY () ! IF FAILURE REPORT ERROR 

: 5003 4 then — 

; 5004 5 bogie 

; 5005 3 ERRDF (88, AZT_READY_ERR, 0); ' 

; 5007 2 if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
; 5009 5 RETRIES = TRUE; ! SET RETRIES FLAG 

3 5010 5 end 

; S011 4 else 

; 5012 4 BLOCKI : | 

; 5013 5 begin 

3 5014 5 ! 

; 5015 5 ' ISSUE AN EX_SUP_PROG COMMAND WITH START ADDRESS OF 

; 5016 § ! DM_27 VECTOR ARRAY AND BYTE COUNT. 

; 5017 5 CMD_REF = .CMD_SLO ! COMMAND REFERENCE NUMBER 
; 5018 § BUF DESCRPTR = DM ee ' DMCODE STARTING ADDRESS 

; 2019 ; BYTE_COUNT = 307¢2; ! BYTE COUNTS 

5 

; 5021 § if EX_SUP_PRG () ! ISSUE AN EXECUTE SUPPLIED COMMAND 
; S022 5 then ! REPORT IF FAILED 


[— 








K10 





ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Bli 579 rag ny 
V03.0 TEST SECTI 57-Mar-1985 13:28:18  USER$1:(AZTEC. te aRCEC IZRCFCS, B16;4 (25) 
3 5023 6 begin 

; 2024 ts ERRDF (89, EXE_SUP_ERR, 0); 

; 3026 if .RET_STATUS then DECODE (); ! DECODE STATUS 

; 65028 6 RETRIES = TRUE; 

; 5029 6 leave BLOCK); ! ABORT TEST 

3 5030 5 end; 

3 5031 5 

; 5032 5 CMD_REF = .CMD_SLOT; ! COMMAND REFERENCE 

; 5033 § BUF DESCRPTR = "UNIT, ! DESCRIPTOR ADDRESS 

; aoee : BYTE_COUNT = 02; ! TOTAL BYTES TO BE TRANSFERRED 
; 5036 § if SEND_DATA () ! ISSUE SEND DATA COMMAND 

; 5037 § then t IF STATUS BIT INDICATES ERROR 
3 5038 6 pene ' THEN REPORT ERROR 

; 5039 é ERRDF (90, SND_DATA_ERR, 0); ' 

; 2041 6 if .RET_STATUS then DECODE (); ! DECODE RETURN STATUS 

; 5043 6 RETRIES = TRUE; ; 

3 5044 6 leave BLOCK1; 

; 5045 5 end; 

3 5046 5 

; 5047 5 ! ISSUE A REC_DATA COMMAND AND WAIT FOR END PACKET 

; 5048 5 ! TO GET THE STATUS SENT BY DM CODE AFTER DOING 

; 5049 5 ! HEAD SUITCH 

; 5050 5 CMD_R "CMD_S ! COMMAND REFERENCE @ 

; 65051 5 SUP DESCRPTR o"aCY BATA.BUF [0]; i SET THE BUFFER AREA TO 

; 5052 5 ' RECEIVE 2 WORDS FROM DM CODE 
; 2053 : BYTE_COUNT = 4; ! SET BYTE COUNTS = 

; 5055 § if REC_DATA () ! SEND A RECEIVE DATA COMMAND 
; 5056 5 then 

; 5057 6 begin ! IF FAILURE REPORT ERROR 

; 2038 6 ERRDF (91, RE_DATA_ERR, 0); 

. 2060 6 if .RET_STATUS then DECODE (); ! DECODE STATUS 

; 5062 6 RETRIES = TRUE; 

3 5063 6 leave BLOCK; 

3 sone ; end; 

; 2066 : ! CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR 

; S068 5 if .RCV_DATA_BUF [0] nequ #0'104' ! IF NOT SUCCESS, REPORT ERROR 
: BBY ™ 

» son 6 peaie (92, MSG_READ_ERR, 0); ! REPORT READ ACCESS FAILURE 

; 5072 6 RETRIES * TRUE; 

r} 5073 6 

3 5074 5 else 

$ 5075 6 

; 507% 6 ' OFFSET OFF CEIVED MULTIPLIED BY 4/10 GIVES ® OFFSET 

; $077 6 DATAG = .RCV_DATA_BUF [1]*2/ 5} OFFSET EXPRESSED AS # 

; 5078 6 ATAZ = ((.RCV_DATA BUF 4, oe )e2; 

; 5079 6 PRINTB (FMT12, .DATAG, DAIAS) . PRINT OFFSET VALUE 





[— 





—— 


ZRCFRS 
v03.0 








uw 
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000542 
016767 
012767 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 
TEST SECTION 27-Mar-1985 13:28:18 
end; 
end; 
if (.RETRIES) then DO_RETRIES (); 
if (.NUM_RETRIES eqlu ZERO) then exitloop; 
end; 
return; 
ENDTST; 
.SBTTL $127 TEST SECTION 
$T2 MOV 1,-¢ 
000001 0000006 BI él. * SWP. TRACE 
0000006 MOV 00BM36, -( SP) 
000001 MOV #1, -(SP) 
MOV SP,RO 
TRAP =: 17 
MP (SP)+,(SP)- 
0000006 1$: CLR NUM. RETRIES 
0000006 0000006 2s: CH NUM. “RETRIES, SWP.RETRIES 
000472 JMP 158 
000033 0000006 3$: MOV 033, TIP 
0000006 JSR PC, AZTEC. READY 
ROR RO 
BCC S$ 
TRAP =s- §5 
.WORD 130 
- WORD AZT.READY.ERR 
000001 0000006 eit @1,RET. STATUS 
0000006 JSR PC, DECODE 
000001 0000206 4s: HOV o1 RETRIES 
0000006 0000006 S$: MOV CMD. SLOT, CMD.RE 
0000006 0000006 MOV 60M. 27, BUF .DESCRPTR 
001146 0000006 MOV 01146, BYTE. COUN 
0000006 JSR PC EX. SUP. PRG 
ROR RO 
BCC 7$ 
TRAP 3s SS 
.WORD 131 
"WORD EXE.SUP.ERR 
“WORD 
000001 0000006 eT #1,RET. STATUS 
0000006 JSR PC, DECODE 
000001 0000006 68: HOV th *RETRIES 
0000006 0000006 7$: MOV CMD. REF 
0000006 0000006 HOV Gunite ato DESCRPTR 


X-11 


USERII 1:fAZ 


SP, 


3¢- 0-579 
tec CZRCECIZRCFC3, B16;4 





ae ng 
098 (25) 


4964 
4993 











012767 
004767 


103016 
104455 





CZRCFCO RC2S FR END TEST 
TEST SECTION 


000002 0000006 
0000006 


9$: 


10$: 
11s: 


128: 


13%: 


M10 


27-Mer-1985 1 
27-Mer-1985 1 


MOV @2,BYTE .COUNT 
JSR PC,SEND.DATA 
OR RO 


wn 
ror 


9% 
TRAP 55 
. WOR’ 132 
-WORD SND.DATA.ERR 
. WOR 
BIT Samat 


PC ,DECODE 
MOV * RETRIES 
CMO. SLOT, CMD. REF 
MOV oRCV. “DATA. BUF »BUF .DESCRPTR 


MOV 04,BYTE 
JSR 4% sREC.DATA 


BCC Te 

TRAP 55 

-WORD 133 

-WORD RE.DATA.ERR 
-WORD 0 

BIT 01,RET. STATUS 
BEQ 10% 


PC ,DECODE 
~ 01 ,RETRIES 
CMP oe 
TRAP 55 
-WORD 134 
-WORD MSG.READ.ERO 
. WORD 
MOV oy Me taIES 


MOV RCV. DATA. BUF +2, -( SP) 
ASL (SP) 

MOV S.-(SP) 

JSR pC: -BL$DIV 

MOV RO,DATA4 

MOV RCV. DATA. BUF «2, (SP) 


MOV DATA. -(SP) 
MOV OFMT12, -( SP) 
MOV 63,- SP 

MOV SP RO 

TRAP ss«144 

ADD SP 

BIT 01, RETRIES 
BEQ $ 


USERS 1s fAz rec. *CURCECIZRCFCS. B16;4 


SEQ 0336 
Pp 





000544 


; Routine Size: 





CZRCFCO rian FR END TEST 


TEST SECTI 
0000006 
000000G 14$; 
177272 
15$; 


179 words, 


3; Meximum steck depth per invocet ion: 


000000 
000000 
000004 
900006 
000010 
000012 


; Routine Size: 


004767 
104466 
006000 
103773 
000207 


177226 


words, 


3; Meximum steck pA. per invocetion: 


s 5092 1 


!<BLF /PAGE > 


Routine Base: 
9 words 


Routine Bese: 
2 words 


MO 
RTS 


27-Mar-1985 15:27:28 
27-Mar-1985 13:28:18 
PC ,00.RETRIES 
NUM. RETRIES 


es 
(SP)+,R1 
PC 


ACSCODE + 23552 


T27 TEST SECTION 
PC, $127 


ACSCODE + 24320 


= 


< 
o 
“ 
So 


Se SF SF SF SF SF SF GF SF SS SH GF GF Be SE SF GF SF GE GF SF SH Ge GF GF GH OS GF GF BF Ge GF GH GH GH OF OF Ge SS Gs OF OF GF Ge OF Os Ge OF Gh OF Os OF Os Oe os oe o% 


: 


MAA AANAMN NMI & BUIVIVIVIVIUIUL & & bb PS PWWWWIWWWWW WWIII WIL 


Bil 


CZRCFCO RC2S5 FR END TEST 27-Mar-1985 15:27:28 X-11 
TEST SECTION 27-Mar-1985 13:28:18 USERST: 
4 

BGNTST; 


tee 
1 TEST @28 - AVERAGE ROTATIONAL TIMING TEST 
DESCRIPTION: 
THIS TEST WILL BRING RC2S CONTROLLER AND THE UNIT ONLINE. 
i THIS TEST WILL BE PERFORMED FROM THE HOST USING THE SCP. *READ” 
i COMMAND. AN LGN WILL BE SELECTED RANDOMLY. ONE THOUSAND TWO 
i BYTE COUNT READS. OF THE Sate COM CMTE Oe DERFOMIED OTHae OSCRATION 
WILL BE TIMED AND THE AVERAGE TIME WILL BE REPORTED. 
« IF THE OPERATOR HAS SELECTED RETRIES, THE TEST WILL BE REPEATED. 
lebel 
BLOCK1; 
if .SWP_TRACE then PRINTF (DBM37); 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SWP_RETRIES) do 
n 
718’. ALL _ONES; t TELL READ,CHD NOT TO WAIT 
FOR REC_STATU 
! GET AZTEC READY FOR OPERATION 


if AZTEC_READY () 
then 


TEST 28 


IF FAILURE REPORT ERROR 


in 
ERADF (93, AZT_READY_ERR, 0); ' 
if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
RETRIES = TRUE; ! SET RETRIES FLAG 
end 
else 

BLOCK : 

' begin 

SEEK RANDOM SECTOR AND REPEAT SEEKING THE SAME SECTOR 1000 TIMES. 

: BYTE_COUNT = 2; ! BYTE COUNTS 
BUF _BESCRPTR = DATAI; ' BUFFER DESCRIPTOR 

t FILL THE COMMUNICATION COMMAND RING SLOTS 

! WITH READ COMMANDS 
P2 = . TICKS ! INIT P2 FOR RANDOM NUMBER 
RANDOM_NUM b); ! GET RANDOM LBN 
LBN_ST = .P3; 
OUT BOUND = JERO; ! CLEAR COMMAND COUNT 
IN_BOUND = ZERO; ! CLEAR RECEIVE COUNT 








lies-16 V 579 
AZTEC. CzRCeCIZRCFCS. B16;4 


SEQ 0338 






























Ci1 


SEQ 0339 
RCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 9-16 V4 P 144 
vos0 Feet Sec HTOR 27-Mar-1965 13:28:18 USeRd: PALTE TEC. CZRCECIZRCFCS. B16;4 00 26) 


ineru I from 0 to SND_ALLOCATE - 1 do! FILL COMMAND BUFFER WITH 
toe a i SEEK COMMANDS (16 SLOTS 
eee a REE = LON.STs 


READE ISSUE READ COMMAND 
OUT BOUND. ey .OUT_BOUND + 1; 


if GET_CMD_SLOT () then exitloop; 


end; 





INIT AND START THE CLOCK 


CLOCK_INIT () 


INIT CLOCK VARIABLES 
TEMP = .RC25_ADDR [RCIP, RC_ALL); 


READ IP FOR CONTROLLER 
! TO START POLLING 


while .IN_BOUND lequ 1000 do DO SEEK FROM STARTING TRACK 
begin 


POLL ert’ Sh RING FOR HOST 
OWNERSHIP 
IF ERROR, REPORT ERROR 


SAVE RECEIVE COUNT 


if REC_STATUS () 
— . 
n 
TER © JIN. 
ERROF (94, “ise CC SEK ERR, 0); 
PRINTS (PATI. TEMP, .LBN_ST); 


CODE (¢ 
RETRIES = TRUE; 
leave BLOCK1; 
end 


! DECODE END PACKET STATUS 
AND ABORT TEST 


else 
begin 


while .QUT_BOUND lequ 1000 do 
PERO” FILL_CMD (); 
OUT_BOUND = .OUT_BOUND «+ 1; 
if GET_CMD_SLOT () then exitloop; 
if (.OUT_BOUND - .IN_BOUND) eqlu 16 then exitloop; 
end; 


TEMP = .RC25_ADDR [RCIP, RC_ALL); ! READ IP AND CONTROLLER 
! WILL START TO POLL 


GIVE NEXT SEEK COMMAND 
AND MAINTAIN A QUEUE OF 15 


end; 
end; 


ee Gs Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge © ee oe Gs Ge Gt G+ Ge Gs Ge Gt Gt G6 Ge G+ Ge 6H Ge Ge Ge © ee ee Ge Ge @F Ge Ge Ge Ge Ge GF GF 
uw 
~ 
~ 
@ 
DAA AID BD I I I 1D GD GD CD C9 UD 09 09.09 SI IID SI II II IIA ODA OAMMMMUNUNII G9 Aannanu 


6 
! STOP THE CLOCK 
‘ -CLK_CSR = ZERO; ! STOP THE CLOCK 





Dil 


CZRCFCO_RC2S FR END TEST 27-Mar-1985 15:27:28  VAX-11 Bliss-16 V4.0 ee "4 
TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC. CoRCECIZRCFCS. B16;4 (26) 
; 5 ! TOTAL SEEKS = 1000 
; 5 DATA4 = .MINUTES#60 + SECONDS ! MSEC. /SEEK 
: 5 DATA3 = .TICKS*100/.CLK HERTZ; ' 100TH OF MSEC. /SEEK 
: 3 PRINGB (MSG_ROT_TIME, SAT AS. .DATA3); | PRINT MESSAGE ‘AVERAGE SEEK TIME’ 
; . 
: 2 end; 
Hy 
; 4 if (.RETRIES) then DO_RETRIES (); 
H 
; 4 if (.NUM_RETRIES eqlu ZERO) then exitloop; 
; 
; 3 end; 
3 3 
; 3 return; 
3 1 END : 
.SBTTL $128 TEST SECTION 
010146 $128: MOV R1, -(SP) ; 5091 
024646 CMP (52) -($P) 
032767 000001 0000006 BIT Sue. T : 5114 
001407 BEQ 
012746 0000006 MOV +0BM37 -(SP) 
012746 000001 MOV #1,-(SP) 
10600 MOV SP.RO ; SP,« 
104417 TRAP 39:17 
022626 CMP (SP)+,(SP)- 
005067 0000006 1$: CLR NUM. RETRIES ; 5116 
026767 0000006 0000006 2s: CHP NUM. RETRIES, SWP.RETRIES ; 5118 
101402 BLOS 3% 
000167 000526 i5$ 
012767 177777 0000006 3$: MOV @-1,TIP , 5120 
004767 0000006 JSR PC. AZTEC. READY ; 5124 
103017 BCC S$ 
04455 TRAP 3-555 ; 5127 
000135 .WORD 135 
"WORD AZT.READY.ERR 
000000 “WORD 
032767 000001 0000006 grr @1,RET. STATUS , 5129 
004767 0000006 JSR PC, DECODE 
012767 000001 0000006 4$: MOV #1 .RETRIES ; 5131 
000167 000424 JMP 133 : 5124 
012767 000002 0000006 S$: MOV #2, BYTE. COUNT ; 5139 
012767 000000G 0000006 MOV #DATA1, BUF .DESCRPTR ; 5140 
016767 000000G 0000006 MOV TICKS, P2 ; 5144 
767 0000006 JSR PC, RANDOM. NUM : 5145 
016767 000000G 0000006 MOV P3.LBN. ST ; 5146 
0000006 CLR T ; 5147 
005067 0000006 CLR IN. BOUND ; 5148 
005001 CLR Rl ; 1 5150 
016767 0000006 0000006 6$: MOV (BN, ST, CMD. REF : 5152 
004767 0000006 JSR PC, READ. CMD ; 5153 
005267 0000006 INC OUT. BOUND ; 5154 
004767 0000006 JSR PC,GET.CMO.SLOT ; 5156 
006000 ROR RO 











E11 


ZRCFR3 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 | VAX-11 Blise-16 V4.0-579 a ny 6 
V03.0 TEST SECTION 27-Mar-1985 13:28:18  USER$1:(AZTEC.CZRCFCJZRCFC3.B16;4 (26) 
ae 
$ 5 
BLOS 6s 
0000006 7$: JSR CLOCK. INIT ' 5163 
0000006 MOV BRCSS. ADDR, (SP) ; #,RC.REG 5164 
0000006 MOV (SP), TEMP ; RC.REG,* 
000000G 001750 8$: cre IN, BOUND, 01750 ; 5168 
0000006 JSR PC REC. STATUS ; 5171 
ROR RO 
Bcc 93 
0000006 0000006 MOV IN.BOUND, TEMP ; 5175 
TRAP = 5S ; 5176 
.WORD 136 
“WORD MSG.SEEK.ERR 
“WORD 
0000006 MOV LBN.ST, -(SP) ; 5177 
0000006 MOV TEMP, -(SP 
0000006 MOV OFM1i1, -(SP) 
000003 MOV -(SP) 
MOV ‘RO ; SP, 
TRAP 4 
000010 ADO #10,SP 
; JSR PC, bECODE : 5178 
000001 0000006 MOV @1.RETRIES ; 5179 
000016 SUB 016,SP ; 5174 
0000006 001750 9$: CHP OUT BOUND, 61750 ; 5185 
0000006 JSR PC ,READ.FILL.CMD : 5187 
0000006 INC - ; 5189 
0000006 JSR PC,GET.CMD. SLOT ; 5191 
ROR RO 
BLO 10$ 
MOV IN. BOUND ,RO ; 5193 
000020 ADD #20,R0 
cH QUT .BOUND RO 
0000006 000002 10$: MOV @RC25. ADDR, 2( SP) ; #,RC.REG 5197 
000002 0000006 MOV 2( SP), TEMP ; RC.REG,* 
BR 8$ : 5168 
0000006 11%: CLR acLK.CSR ; 06 
0000006 MOV MINUTES, -(SP) ; 5208 
000074 MOV 074, -(SP) 
0000006 JSR PC, BL $MUL 
0000006 ADD SECONDS , RO 
0000006 MOV RO, DATA4 
0000006 MOV TICKS, (SP) : 5209 
000144 MOV 144, -(5P 
0000006 JSR PC,BL$MUL 
MOV RO, (SP) 
0000006 MOV CLK.HERTZ, -(SP) 
0000006 JSR PC, BLSDIV 
0000006 MOV RO, DATA 
0000006 MOV DATA, (5P) ; 5210 
0000006 MOV DATA4, -(SP) 




















Fil 








SEQ 034 
ZRCFRS CZRCFCO aS FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4 Page 147 
v03.0 TEST SECTI 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCLIZRCFCS. B16;4 (26) 
000532 012746 0000006 MOV OMSG ROT. TIME, -(SP) 
000536 012746 000003 MOV #3,-(SP) 
000542 010600 MOV P,R ; SP,* 
000544 104414 TRAP 14 
000546 062706 000016 128: ADO #16, SP 
000552 032767 000001 000000G 13$; BIT 01, RETRIES 
000560 001402 BEQ $ 
000562 004767 000000G JSR PC,DO.RETRIES 
000566 005767 000000G 14$; TST NUM. RETRIES 
000572 001402 BEQ 15% 
000574 000167 177236 JMP es 
000600 022626 15$: CMP (SP)+,(SP)- 
000602 012601 MOV (SP)+,R1 
000604 000207 RTS PC 


: Routine Size: 195 words, Routine Base: AC$CODE + 24334 
; Maximum stack depth per invocation: 12 words 


-SBTTL 128 TEST SECTION 


000000 004767 177166 T28:: 

000000 1$: JSR PC, $728 
000004 104466 TRAP 66 
000006 006000 ROR RO 
000010 103773 BLO 1$ 
000012 000207 RTS PC 

3 Routine Size: 6 words, Routine Base: ACSCODE + 25142 


; Meximum steck depth per invocation: 2 words 


s S222 1 !<BLF /PAGE> 








VII MUMIUIUIVIVIU & & Bb PWWWUWWW S & PUWWUWW WWW UW WWW WWIII 

















Gil 


SEQ 0343 
CZRCFCO RC2S5 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-1 Page 148 
TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCECIZRCFCS. B16;4 (27) 
' 
BGNTST; 


ee 


TEST @29 - WRITE PROTECT TEST 
! DESCRIPTION: 


THIS TEST REQUIRES MANUAL INTERVENTION. IT WILL BE EXECUTED IF 
THE SOFTWARE PARAMETER QUESTIONS DO NOT CAUSE IT TO BE OMITTED. 


v 
8 
a 
t 
' 
: ras TEST BRINGS ates CONTROLLER AND THE UNIT ONLINE FIRST. 

: THE TEST IS DONE FROM THE HOST USING THE Ay COMMAND “GET UNIT 

: STATUS" (GUS). THE TEST WILL ASK THE OPERATOR TO MAKE SURE THE 

: WRITE gy ~~ s FOR THE UNIT IS IN THE OFF POSITION. IT WILL 

: DO_THE aS. 4 CONTROLLE 

g NOT WRITE PROTECTED. THEN THE OPERATOR WILL BE ASKED TO PUT T 

¢ WRITE PROTECT SWITCH IN THE ON POSITION AND A GUS WILL BE DONE T 

: MAKE SURE THE CONTROLLER RECOGNIZES THAT THE UNIT IS WRITE PROTECTED. 
t 

] 

i 

4 


THE ERROR REPORT FOR THIS TEST WILL CONTAIN THE UNIT NUMBER, EXPECTED 
AND ACTUAL POSITONS OF THE WRITE PROTECT SWITCH. 


! SKIP THIS TEST, IF MANUAL INTERVENTION SWITCH IS CLEARED. 


if not .SWP_MANUAL 
then 


begin 
PRINTF (D0BM39); 


return; 
end; 


if .SWP_TRACE then PRINTF (DBM38); ! TEST 29 
NUM_RETRIES = ZERO; 
while (.NUM_RETRIES lequ .SwP_RETRIES) do 


n 
TIP = 29; 
1 GET AZTEC READY FOR OPERATION 
if AZTEC_READY () ! IF FAILURE REPORT ERROR 
n 


begin 
ERDF (95, AZT_READY_ERR, 0); ! 


if .RET_STATUS then DECODE (); ! DECODE THE STATUS, IF ANY 
RETRIES = TRUE; ! SET RETRIES FLAG 
end 
else 
begin 


! DISPLAY MESSAGE “TURN OFF WRITE PROTECT SWITCH” THEN ISSUE 





ZRCFBS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:2 
v0O3.0 TEST SECTION 27-Mar-1985 13:2 


: A GET UNIT STATUS COMMAND AND EXAMINE THE UNIT FLAG. 


Se SF OF Se BF Ge SE Ge GF BF GF BF GF GF OF GF OF OF BF GF OF Gs BF Se Be OF SF OF GF OF SF OF OF OF OF GF OF Os BF Os Os Gs OF Os OF Se Os Os Os He OF Os Os 00 os Oo oo 
vi 
w 
Oo 
@ 
DDD DADA AAA ASAI DD Sb 09 09 9 OW SI IIIS SIO HAHAH VU AADAOOUUUUU 


[— 


PROGRAM WAITING FOR GO (CR) SIGNAL 








Hil 


SEQ 0344 
:28 -11 Bli 
18 


7: $s-16 V4.0-57 P 149 
8: USER $1: (AZTEC.CZRCFCJZRCFC3.616;4 9 (27) 


MANU_SW = ONE; MANUAL SWITCH IS SET TO ‘YES’ 
aes > TRUE do 


i (QST14, MANU_SW, 1, YES, 0); ! DISPLAY MESSAGE TURN OFF WRT 
! PROTECT SWITCH 


if (.MANU_SW) then exitloop; 


end; 


if (.MANU_SW eql YES) 
then 


a WAITING FOR CR SIGNAL 

n 

CHB-REF = .CMD_SLOT; COMMAND REFERENCE NUMBER 

if GET_UNIT_STATUS () ! ISSUE A GET UNIT STATUS COMMAND 
n 


! IF RESPONSE STATUS BIT ERROR, THEN 


begin 

ERROF (96, MSG.GUS_ERR, 0); ! GET UNIT STATUS ERROR 
RETRIES =" TRUE; 

e 


else 
begin 
RE? UNIT_FLAG = .RET_UNIT_FLAG and #0'020000'; ! MASKED OUT OTHER BITS 
if ,RET_UNIT_FLAG eql UF _WPH $ IF WRT. PROT. FLAG SET 
then ' ERROR 
peaie MSG_COM wr 0); ! REPORT ERROR 
ERIWTB. (FAT, . UNIT) ! 
RETRIES = TRUE; 
end; 
end; 
end; 
DISPLAY MESSAGE “TURN ON THE WRITE PROTECT SWITCH” THEN 
ISSUE A GET UNIT SATUS COMMAND AND EXAMINE THE RESPONSE 
UNIT FLAGS. 
SWITCH2 = ONE; ' SET MANUAL SWITCH 
while TRUE do 


begin 
GMANTL (QST15, SWITCH2, 1, YES, 0); ! PTSPLAY MESSAGE TURN OFF WRT 
! PROTECT SWITCH 


if (.SWITCH2) then exitloop; 










Til 


SEQ 034 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:27:28 VAX-11 Bliss-16 V4 oy" 0 
TEST SECTION 27-Mar-1985 13:28:18 USER$1: (AZTEC. CZRCFCIZRCECS. B16;4 (27) 


end; 


' 
: PROGRAM WAITING FOR GO (CR) SIGNAL 


if (.SWITCH2 eql YES) 
then ! WAITING FOR CR SIGNAL 


begin 

CMO. REF = .CMD_SLOT; ! COMMAND REFERENCE NUMBER 

if oer _UNIT_STATUS () ! ISSUE A GET UNIT STATUS COMMAND 
the ! IF RESPONSE STATUS BIT ERROR, THEN 


"pepin (98, MSG_GUS_ERR, 0); ! GET UNIT STATS ERROR 
RETRIES = TRUE; 
end 
ea ™ : 
in 
REY UNIT_FLAG * ,RET_UNIT_FLAG and #0'020000'; ! MASKED OUT OTHER BITS 
if .RET_UNIT_FLAG neq UF _WPH ! IF WRT PROT. FLAG CLEAR 
then ' ERROR 
peair MSG_COM 0 0); ! REPORT ERROR 
PRINTB Cratis: . UNIT) ! 
RETRIES = TRUE; 
end; 
end; 
end; 
end; 
if (.RETRIES) then DO_RETRIES (); 


if (.NUM_RETRIES eqlu ZERO) then exitloop; 


HPUWNW E&P BNA D OW WD SI III SOO AOHUGAMUUIUUUID 


end; 
return; 
ENDTST; 
.SBTTL $129 TEST SECTION 
032767 000001 0000006 $129: 617 #1, SW. MANUAL 
001010 BNE 
012746 0000006 MOV #DBM39, -(SP) 
012746 000001 MOV #1,-(SP) 
0600 MOV SP, RO 

104417 TRAP =s-:«17 
022626 CMP (SP)+,(SP)-+ 
000207 RTS 
032767 000001 0000006 1$: BIT #1, SWP. TRACE 
001407 BEQ 2$ 












J11 





SEQ 0346 
cZRCFCO RC25 FR END TEST 27-Mar-1985 15:27: VAX-11 BLi 9-16 579 Page 151 
TEST SECTION 27-Mar-1985 13:28: Pore CEO2RCFCS. B16;4 (37) 
0000006 MOV #0BM38, -(SP) 
000001 MOV #1,-(SP) 
MOV SP.RO 
TRAP 
CMP (SPs (SP) 
0000006 2%: CLR NUM. RETRIES 
0000006 0000006 3$; CH NUM. “RETRIES, SWP.RETRIES 
RTS 
000035 0000006 4$: MOV 035, TIP 
0000006 JSR PC, AZTEC .READY 
nOR RO 
BCC 6$ 
TRAP 3s §5 
.WORD 137 
- WORD AZT .READY.ERR 
000001 0000006 IT @1,RET. STATUS 
0000006 JSR PC, DECODE 
000001 0000006 S$: HOV @1,RETRIES 
000001 0000006 6$: MOV #1, MANU, SW 
7$: TRAP 43 
.WORD 404 
“WORD MANU. SW 
‘WORD 130 
[WORD QST14 
“WORD 1 
000001 0000006 IT #1, MANU. SW 
0000006 000001 CHP MANU. SH, 01 
0000006 0000006 MOV CMD. SLOT, CMD .REF 
0000006 JSR PC, GET. UNIT. STATUS 
ROR RO 
BCC 8$ 
TRAP 3=s«§5 
.WORD 140 
“WORD MSG.GUS.ERR 
“WORD 
000001 0000006 HOV #1 ,RETRIES 
157777 0000006 8$: BIC @-20001,RET.UNIT.FLAG 
0000006 020000 CMP RET.UNIT. FLAG, 20000 
BNE 9$ 
TRAP 3s §5 
.WORD 141 
“WORD MSG.COM.WPT 
"WORD 0 
0000006 MOV UNIT, -( SP) 
0000006 MOV OFMTIi8, -(SP) 
000002 MOV #2,-(SP) 
V SP,R 
TRAP 


14 
000001 000000G MOV #1, ,RETRIES 
000006 #6, SP 








012767 
43 





004767 
104466 


006000 
103773 
000207 


; Routine Size: ‘ 
; Maximum stack depth per invocetion: 


CZRCFCO 4 FR END TEST 
TEST SECTI 


000001 000000G 9%: 
10$; 


157777 000000G 11$: 
020000 
000000G 
000000G 
000002 
000001 000000G 
000001 000000G 12$: 
000000G 
000000G 13%: 
177326 
14$: 
175 words, Routine Base: 
5 words 
177236 729: 
1$: 


RTS 


K11 


27-Mar-1985 15:27:28 


27-Mar-1985 
#1, SWITCH2 
43 


404 
SWITCH2 

30 

QsT1i5 
@1,SWITCH2 
SWITCH2, 01 
12$ 


CMD .SLOT,CMD.REF 
as’ GET.UNIT. STATUS 


ne 

55 

142 
MSG.GUS.ERR 


1, ,RETRIES 
12$ 


@-20001,RET.UNIT.FLAG 
RET. ONT FLAG, #20000 


55 
143 

MSG.COM. WPT 
UNIT, -( SP) 
OFMT19, -(SP) 
@2,-(SP) 
SP-RO 

14 
01, RE TRIES 
03 ,RETRIES 
PC, DO.RETRIES 
NUM. RETRIES 
34 

PC 


ACSCODE + 25156 


-SBTTL 129 TEST SECTION 


PC, $729 
66 
RO 


1$ 
PC 










VAX-11 Bliss-16 57 oy Oy 
USER$1;: [AZ TEC. CZRCECIZRCECS. B16;4 


; 5329 
; 


13:28:18 





Lil 


" SEQ 034 
ZRCFRS CZRCFCO as 4 FR END TEST 27-Mar-1985 15:27:28 X-11 Bliss-16 Page 153 
v03.0 TEST SECTION 27-Mar-1985 13:28:18 USERS: (AZTEC. CZRCEC IZRCFCS, B16;4 (27) 
:; Routine Size: 6 words, Routine Base: ACSCODE + 25714 


; Maximum stack depth per invocation: 2 words 


a: wes end 


vi 
w 
@o 
fw 
~ 


’ OTS external vereeet 
-GLOBL $SAVE4, $SAVE3, $SAVE2, BLSSHF 
-GLOBL BLSDIV, BL$MOD, BLSMUL 


PSECT SUMMARY 
Psect Neme ~— ater ieutge 


SOWNS WwW. D , LCL, REL, CON 
AC$CODE 5612 RO, I. LCL, REL, CON 


Library Statistics 


48 EO ee a ae ee ae ee Symbols -------- Pages Processing 
3 File Totel Loaded Percent Mapped Time 
; USER$1: (AZTEC. CZRCFC JAZTECO.L16;2 485 238 49 24 00:00.2 


COMMAND QUALIFIERS 
BLISS/PDP11/LIST ZRCFC3.B816/EN:NOEIS 
Size: 5612 code + 81 dete words 
Time: 05:18.2 


Elepsed Time: 05:31.4 
Lines/CPU Min: 1015 
Lexemes/CPU-Min: 8270 
Memor | Used: 333 gegee 
Compilation Complete 








ZRCFRS 


oe Ge GF GF Gs Gs Gt OF Ge Ge Ge Ge GF GF Ge Ge Ge Ss GF Ge Ge Ge Ge GF Gs os oF 


0001 


eb bb bb bo bo bo be bo ho bo bo ho he po bo poner OOOO 


CZRCFCO RC25 FR END TEST 


MODULE ZRCFB4 Corts Ba Ae Ae RC25 FR END 
9 tenets MODE (RELATIVE ) 


BEGIN 

!<BLF /LOWERCASE _KEY> 
librery ‘AZTECO'; 
require ‘'BLSMAC.REQ'; 
’ 


‘ 
Ssbtt] ‘DM PROGRAM’ 


AND THEN MADE AS VECTOR ARRAYS BY 


'<BLF /PAGE> 





THIS MODULE 1 hee DM CODE FOR SOME OF THE resis 

AS GLOBAL DATA, THE HOST PROGRAM WILL DOWN LINE LOAD 
THESE TESTS IN aztec CONTROLLER'S MEMORY FOR EXECUTION. 
THE DM CODE *~ FIRST ASSEMBLED AND LINKED UNDER 


whe Is i COLLECTION OF ARRAYS FOR SPECIFIC 


Mil 


SEQ 0349 
27-Mar-1985 15:33:05  VAX-11 Bliss-16 V4.0-579 age 1 
11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFCJZRCFC4.B16;3 (1) 


TEST’ 


! AZTEC LIBRARY 
! DIAGNOSTIC SUPERVISR LIBRARY 


USING DMCONV ONV EXE. 








Nil 


SEQ 0350 
CZRCFCO RC25 FR END TEST 27-Mer-1985 15:33:05 VAX-11 Blies-16 V4.0-579 Pege 2 
DM PROGRAM 11-Jen-1985 08:19:20 USER$1: (AZTEC .CZRCFC JZRCFC4.616;3 (2) 
psect 
Qlobel = DMSCODE(nowrite, noexecute, globel, concatenate); 





ee ee ee ee be ee be ee ee ee ee ee ee ee ee be bee fn bw bw bee ben few hin baw ew ew ew ew few ee ew few aw fee aw ew ee be ew he ew few few few few ew ew 








Ble 


SEQ 03 
P 51 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Blies-16 V4.0-579 ege 3 
DM CODE DOWN LINE LOAD TEST 11-Jen-1985 08:19:20 USER$1; (AZTEC. CZRCFC JZRCFC4.616;3 (3) 
Sebttl ‘DM CODE DOWN LINE LOAD TEST’ 

globel 

DOM_09 : vector Np word) preset ( 

* ee Soete a ! THIS IS THE DOM PROGRAM BYTE COUNT. 
‘ * oe Sones + ! THIS IS THE DOM OVERLAY BYTE COUNT. 
4 * #0'042524', ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
5 = #0'052123', ! PROGRAM NAME IS 'TESTO9’ 

6 = 0'034460', 

7 * #0'000006', ! THIS IS THE PROGRAM VERSION 

8 * #0'126411', ! UPPER BYTE*TIME OUT VAL. LOWER » FLAGS 
9 = #0'000000', 

10 ® #0'000000', 

ll = #0'000000', 

12 = #0'000000', 

13 ® 0'000000', 

14 *® 0'000000', 

i5 5 *000000' , 

16 * *104206', ! DOM CODE STARTS HERE 

17 s #0'003051' ° 

18 = #0'114000', 

19 = 0'003037', 

20 = #0'104207' 

21 * #0'003032', 

22 * #0'104201', 

23 = ? 3' 

24 = #0'060023', 

25 = ‘103207', 

26 = 0'177740' 

27 * 0'115007', 

28 * #0'012756', 

29 = 0'003003', 

30 = 0'114000', 

31 = #0'003052', 

32 = 0'104307', 

33 = #0'003032 

34 = #0'104301', 

35 * #0'003033', 

36 * #0'104302', 

37 s ‘003034’, 

38 * 0'104203', 

24 = #0'003052', 

40 s '060020' 

41 * 0'103207', 

42 = #0'177740', 

43 = 0o'115007', 

44 = #0'013007', 

45 = #0'115400', 

46 = #0'003037', 

47 * #0'106300', 

48 : ‘003035’, 

49 = 0'003037', 

50 = %0'032756', 

51 = 0'104200', 

52 * #0'000106', 





Cie 








ZRCFR4 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliees-16 V4.0-579 mee 4 
v03.0 DM CODE DOWN LINE LOAD TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFCJZRCFC4.B16;3 (3) 
: 18% 1 53 * #0'003040', 
; 1577 1 54 = 0'003024'; 
> 1578 1 55 ® 0'104207', 
; 1579 1 56 = 0'003052', 
; 1580 1 57 = #0'104201'. 
> 1581 1 58 = #0'125252', 
: 1582 1 59 * 0'104302', 
; 1583 1 60 * 0'003034', 
; 1584 1 61 * #0'106271', 
; 1585 1 62 * *053003', 
:; 1586 1 63 ® #0'117402', 
s i507 i 64 * #0'053015', 
; 1588 1 65 = #0'104200', 
; 1589 1 66 = #0'000104'; 
; 1590 1 67 = 0'003040',. 
> 1591 1 68 = #0'104207', 
; 1592 1 69 ® 0'003040 
; 1593 1 70 2 #0'104201', 
> 1594 1 71 ® #0'000001'. 
; 1595 1 72 = 0'060022'. 
; 15% 1 73 ® 0'060010', 
; 1597 1 74 = #0'000000'; 
; 1598 1 75 = #0'000000'. 
; 1599 1 76 ® 0'000000'; 
; 1600 1 77 * 0'000012'. 
; 1601 1 78 = 0'000000' ; 
; 1602 1 79 2 0'000000' ; 
; 1603 1 80 ® 0'000000'. 
; 1604 1 81 ® #0'000000'; 
; 1605 1 82 = #0'000000', 
; 1606 1 a3 = 0'000000'; 
3; 1607 1 84 = 0'000000', 
; 1608 1 85 = 0'000000'; 
; 1609 1 86 = 0'000000' ; 
; 1610 1 87 ® 0'000000'; 
; 1611 1 88 = #0'000000', 
; 1612 1 89 = #0'000000'; 
; 1613 1 90 = 0'000000' , 
; 1614 1 91 = 0'144423' 
; 1615 1 92 ® #0'000000' 5; 
3 1616 1 








Die 





SEQ 0353 


ZRCFR4 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bli 2.18 V4 
v03.0 NONEXISTENT MEMORY TEST 11-Jan-1985 08:19:20 USER$1: (AZ le ORCECIZRCFCS. B16;3 se (4) 
3 1617 1 Ssbttl 'NONEXISTENT MEMORY TEST’ 

3 1618 1 

3 1619 1 global 

; 1620 1 D0M_10 : vector (58, word) Pree t ( 

3 16e2 : 2 62', ! THIS IS THE DM PROGRAM BYTE COUNT. 
; aad e 

: rat ' § s ho oss ! THIS IS THE DM OVERLAY BYTE COUNT. 
3 1625 1 4 ® #0'042524', ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
3 1626 1 5 = #0'052123', ! PROGRAM NAME IS ‘TEST10' 

; 1627 1 6 = #0'030061', 

3 1628 1 7 = #0'000000', ! THIS IS THE PROGRAM VERSION 

3 1629 1 8 = 0'126411', ! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 
3 1630 1 9 = 0'000000', 

: 1631 1 10 = 0'000000', 

3 1632 1 ll = 0'000000', 

3 1633 1 12 = 0'000000', 

3 1634 1 13 = 0'000000', 

3 1635 1 14 = 0'000000', 

; 1636 1 15 = #0'000000', 

3 1637 1 16 = #0'104206', ! DM CODE STARTS HERE 

3 1638 1 17 = 0'003007', 

3 1639 1 18 = 0'104207', 

: 1640 1 19 5 af *s 

: 1641 1 20 = #0'104201', 

3 1642 1 2l = #0'077777', !VER:C 

: 1643 1 22 = 0'104202', 

: 1644 1 23 = #0'00000 

3 1645 1 24 z #o' 104203", 

3 1646 1 25 = #0'003 ° 

8 1647 1 26 = o' J 

8 1648 1 27 = 0'103207', 

3 1649 1 28 = 0'177740', 

3 1650 1 29 = 0'104070', 

3 1651 1 30 = 0'002765', 

: 1652 1 31 = 0'104207', 

3 1653 1 32 = #0'002765', 

3 1654 1 33 = #0'104201', 

3 1655 1 34 Ss *000001', 

3 1656 1 35 = 0'060022', 

s 1657 1 36 = 0'060010', 

; 1658 1 37 = 0'000000', 

3 1659 1 38 = 0'000000', 

3 1660 1 39 = 0'000000', 

: 1661 1 40 = 0'000000', 

3 1662 1 41 = #0'000000', 

3 1663 1 4c = 0'000000', 

s 1664 1 43 = #0'000000', 

8 1665 1 44 = 0'000000', 

3 1666 1 45 = 0'000000', 

8 1667 1 46 = 0'000000', 

$ 1668 1 47 = 0'000000', 

3 1669 1 48 = 0'000000', 

8 1670 1 49 = ‘000000’, 

8 1671 1 50 = 0'000000', 

$ 1672 1 51 = 0'000000', 

$ 1673 1 S2 = 0'000000', 








Ele 


ZRCFR4 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:33:05  VAX-11 Blies-16 V4.0-579 my 6 
v03.0 NONEXISTENT MEMORY TEST 11-Jan-1985 08:19:20 USER$1:( AZTEC. CZRCFC JZRCFC4.B16;3 (4) 
; 1674 1 53 = #0'000000', 

: 1675 1 54 = $0'000000', 

; 167% 1 55 = #0'000000'. 

. wee 56 = 0'030037' 

; 1678 1 57 = #0'000000' 3; 

> 7 I 


















Fle 





SEQ 0355 
P 





ZRCFR4 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0 age 7 
v03.0 BUS ADDRESSING/DATA TEST A 11-Jan-1985 08:19:20 USER$1: (AZTEC. CoRCECIERCFCS, B16;3. (5) 
3 1699 } Ssbttl ‘BUS ADDRESSING/DATA TEST A’ 

; 

; 1682 1 global 

; 1683 1 DOM_11 : vector (100, word) preset ( 

3 iets : : B = 000306', ! THIS IS THE DM PROGRAM BYTE COUNT. 
3 = ‘ " 

3 Pry : : 5 ae gooeee: * ! THIS IS THE DM OVERLAY BYTE COUNT. 
° - : a 

: 1688 1 4 = #0'042524', ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
: 1689 1 5 * #0'052123', ! PROGRAM NAME IS ‘TEST11 

; 1690 1 6 = #0'030461', 

3 1691 1 7 = 0'000000', ! THIS IS THE PROGRAM VERSION 

3 1692 1 8 = #0'126411', ! UPPER BYTE*TIME OUT VAL. LOWER = FLAGS 
3 1693 1 9 = 0'000000', 

3 1694 1 10 = #0'000000', 

3 1695 1 ll = 0'000000', 

: 1696 1 12 = #0'000000', 

Fy 1697 1 13 = #0'000000', 

; 1698 1 = 0'000000', 

3 1699 1 15 = 0'000000', 

: 1700 1 16 = 0'104206', ! DM CODE STARTS HERE 

3 1701 1 17 = #0'003061', 

3 1702 1 18 = 0'104207', 

: 1703 1 19 = 0'003040', 

; 1704 1 20 = 0'104201', 

3 1705 1 2l 5 *00000 

: 1706 1 22 5 ‘06002 

3 1707 1 23 = fo’ 103207'. 

Fy 1708 1 24 = %0'177740', 

FY 1709 li 25 = 115007", 

3 1710 1 26 = 0'012754', 

: 1711 1 27 = 0'003023', 

3 i7i2 1 28 = 0'104200', 

; 1713 1 29 s : . 

3 1714 1 30 = #0'003043', 

3 i718 3 31 = 0'104300', 

3 1716 1 32 = 0'003040', 

3 hy kk ame | 133] ca '003044' 

3 1718 1 34 = 0'104304', 

Fy 1719 1 3] = 0'003042', 

3 1720 1 36 = 0'114000', 

; 1721 1 33 = 0'003046', 

3 1722 1 38 = 0'104307', 

3 1723 1 39 a ‘00 ‘ 

3 1724 1 40 = #0'104301', 

3 1725 1 41 = %0'003041', 

$ 1726 1 42 * 0'104302', 

3 1727 1 43 = #0'003043', 

$ 1728 1 44 = #0'104203', 

3 1729 1 45 = 0'003044', 

$ 1730 1 Ty = 0'060021', 

$ 1731 1 47 = 0'103207', 

3 1732 1 48 = %0'177740'. 

F} i733 i 49 = 0'115007', 

3 1734 1 50 S %0'013012', 

3 1735 1 51 = #0'115400 

3 1736 1 (52) = %o' 003046’. 
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CZRCFCO RC25 FR END TEST 
BUS ADDRESSING/DATA TEST A 










Gle 


SEQ 0356 
27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 Page 8 
11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFCJZRCFC4.616;3 (5) 





#%0'106200', 
%0'000012 , 





s ies 

; 1786 1 

; 1787 1 globel 

; 1788 1 DOM_1l2 : 

; 1789 1 0 . ‘000622’, 
; 1790 1 1 = 'Q00000' , 
; 1791 1 2 = %9'000000', 
:; 1792 1 3 * *Q00000', 
>. are a 4 *® 0'042524', 
; 1794 1 | = #0'052123', 
; 1795 1 6 * #0'031061', 
; 179% 1 7 . *Q00000', 
; 1797 1 8 = #0'177411', 
; 1798 1 9 * %0'000000', 
; 1799 1 10 = %0'000000', 
; 1800 1 11 = %0'000000', 
; 1801 1 12 = #0'000000', 
: 1802 1 13 = %0'000000', 
; 1803 1 14 = 9'000000', 
>; 1804 1 15 = 9'000000', 
; 1805 1 16 = 0'104206', 
>; 1806 1 17 = #0'002767', 
; 1807 1 18 = 0'003004', 
>; 1808 1 19 = 'Q900000', 
>; 1809 1 20 = 0'000000', 
; 1810 1 2i = 0'000000', 
; 1611 1 22 = %0'000000', 
>; 1612 1 23 = 0'000000', 
; 1613 1 ra = 0'000000', 
; 1814 1 25 = %0'000000', 
s 1615 1 26 = #%0'000000', 
; 1816 1 27 = 0'000000', 
; 1817 1 28 = 0'000000', 
>; 1618 1 29 = 0'000000', 
>; 1819 1 30 = 0'000000', 
>; 1820 1 31 = %0'000000', 
; 1821 1 32 = %0'000000', 
; 1822 1 33 = #0'000000', 
; 1823 1 os = 09'000000', 
: 1824 1 35 = 0'000000', 
; 1625 1 36 = #0'000000', 
>; 1826 1 37 = 0'000000', 
; 1827 1 38 = 0'000000', 
>; 18628 1 39 = %0'000000', 
s 1629 1 40 = %0'000000', 
: 1830 1 41 = %0'000000', 
; 1831 1 42 = *000000', 
s 1632 1 43 = #0'000104', 
; 1833 1 aa = 0'000106', 
>; 1834 1 45 = %0'000000', 
s 1635 1 46 = %0'000000', 
s 1636 1 47 = %0'000000', 
[o. oee 48 * %0'000000', 
:). ame 2 49 2 ‘000000’, 
s 1639 1 50 = %0'000000', 
; 1840 1 51 = 0'000000', 
; 1641 1 S2 = #0'023016', 


- 


CZRCFCO RC2S5 FR END TEST 
V03.0 BUS ADDRESSING/DATA TEST B 


Ssbttl ‘BUS ADDRESSING/DATA TEST B' 





vector (202, word] 
#0 r ! THIS 





! THIS IS THE PROGRAM VERSION 






Hie 


27-Mar-1985 15:33:05 
11-Jan-1985 08:19:20 


SEQ 0357 
VAX-11 Bliss-16 V4,0-579 Page 


USER$1: (AZTEC. CZRCFC)JZRCFC4.B16;3 (6) 





greens t ( 
S THE DM PROGRAM BYTE COUNT. 


THIS IS THE DM OVERLAY BYTE COUNT. 


NEXT 3 WORDS = PROGRAM NAME (ASCII) 
PROGRAM NAME IS 'TEST12' 


UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 


DM CODE STARTS HERE 









Iie 





SEQ 0358 
P 





ZRCFR4 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4 0 
VO3.0 BUS ADDRESSING/DATA TEST B 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCECIZRCFCA. B16;3 na (85 
> 1842 1 53 * #0'023031', 
; 1843 1 54 = #0'023210', 
; 1844 1 SS = #0'023120', 
> 1845 1 56 * #0'023126', 
; 1846 1 37 = #0'023210', 
> 1847 1 58 = #0'023120', 
; 1848 1 59 = #0'023155', 
> 1849 1 60 * 0'023210', 
: 1650 1 61 = 0'060010', 
; 1851 1 62 = #0'104207', 
; 18652 1 63 = #0'002770', 
s 363535 i 64 = 0'104201', 
; 18654 1 65 . ‘Q00003', 
: 1855 1 66 s ‘060023', 
: 1856 1 67 * #0'103207', 
; 1857 1 68 = #0'177740', 
: 1858 1 69 . ‘115007', 
; 1859 1 70 = #0'013030', 
: 1860 1 71 = #0'003203', 
: 1861 1 72 * : 

; 1862 1 73 ° ‘104300', 
; 1863 1 74 * #0'002770', 
; 1664 1 75 = 0'002777', 
; 1865 1 76 * %0'104300', 
> 1866 1 77 * 0'002771', 
: 1867 1 78 = #0'003 

; 1868 1 79 = #0'104301', 
; 1869 1 80 = 0'002772', 
; 18670 1 81 = %0'104207', 
; 18671 1 82 = %0'177777', 
:. ae & 83 * 0'107307', 
s 18673 1 84 = %0'002777', 
: 1674 1 85 = 0'104070', 
; 1675 1 86 = #0'003002', 
; 1876 1 87 = 0'023063', 
s rT 3 88 = #0'105200', 
; 1878 1 89 = o' ‘ 
s 1879 1 90 = %0'002777' 
: 1880 1 91 = to'll . 
; 1881 1 92 = #0'002777', 
; 1882 1 93 = #0'053060', 
s 18663 1 94 = 0'115400', 
; 1884 1 95 s ‘003000 
; 1885 1 96 = #0'117401', 
; 1886 1 97 = #0'053041', 
; 18687 1 98 ° ‘000000’, 
; 1888 1 99 = 0'100467', 
; 1889 1 100 = 0'100461', 
s 18690 1 101 = #0'100462', 
> aoe 102 = 0'100463', 
> ws 103 * #0'104307', 
s 1693 1 104 = %0'002777', 
; 1694 1 105 = 0'104301', 
s 1695 1 106 = #0'003 

s+ 169% 1 107 = 0'104202', 
s 1697 1 108 = #0'000001', 
+s 1698 1 109 = %0'104203', 


[— 





Jle 





ZRCFRA CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05  VAX-11 Bliss-16 V4.0-579 vr een a 
vo3.0 BUS ADDRESSING/DATA TEST B 11-Jan-1985 08:19:20  USERS1:(AZTEC-CZRCFCIZRCFC4.B16;3 (6) 
> 1899 1 110) = 0" 003002", 
; 1900 1 111) = 2i', 
; 1901 1 112] = #0'103207"; 
; 1902 1 113] = 0'177740', 
; 1903 1 114) = soll : 
; 1904 1 115} = = #80'013113', 
; 1905 1 116) = #0'115400'; 
; 1906 1 117] = 0'003003', 
; 1907 1 118} = #0'106200'; 
; 1908 1 119] = #0'000012", 
; 1909 1 120) = #0'003003', 
; 1910 1 121} = 0'033067", 
; 1911 1 122] = 0'003203', 
; 1912 1 123) = 0' 104263", 
; 1913 1 124) = #0' 104262"; 
; 1914 1 125] = #0'104261'; 
; 1915 1 126) = #0'104267', 
; 1916 1 127} = so! ' 
; 1917 1 128] = #0'104207', 
; 1918 1 129) = #0'002775', 
; 1919 1 130] = #0'104201'; 
; 1920 1 131) = #0'000001', 
; 1921 1 132] = 0'060023', 
; 1922 1 133} = 60'000000' 
; 1923 1 134] = #0' 104300" 
; 1924 1 135) = #0'002770', 
; 1925 1 136) = 0'002777', 
; 1926 1 137] = #0'104300', 
; 1927 1 138] = #0'002771', 
; 1928 1 139] = 0'003000' 
; 1929 1 140) = #0'104301', 
; 1930 1 141) = 01002772", 
; 1931 1 142] = #0'104200', 
; 1932 1 143) = = 0'177777', 
; 1933 1 144] = 0'003002"; 
; 1934 1 145) = #0'023063', 
; 1935 1 146) = #0'105200', 
; 1936 1 147] = so’ 

; 1937 1 148) = #0'002777', 
; 1938 1 149] = #0'115000' 
; 1939 1 150] = #0'002777', 
; 1940 1 151} = 80'053152", 
; 1941 1 152] = #0'115400', 
; 1942 1 153] = #0'003000', 
; 1943 1 154) = #0'117401', 
; 1944 1 155) = #0053141", 
; 1945 1 156} = s0'000000'; 
; 1946 1 157) = #0'104300', 
; 1947 1 158} = s0'002770', 
; 1948 1 159) = #0'002777', 
; 1949 1 160} = s0' 104300’ 
; 1950 1 161) = #0'002771' 
; 1951 1 162} = 0'003000', 
; 1952 1 163] = 0'104301', 
; 1953 1 164} = s0'002772', 
; 1954 1 165] = s0'114000', 
; 1955 1 166) = #0'003002', 





— 










K12 





SEQ 0360 





ZRCFRA CZRCFCO RC2S FR END TEST 27-Mar-1985 15:33:05  VAX-11 Bliss-16 age 12 
V03.0 BUS ADDRESSING/DATA TEST B 11-Jan-1985 08:19:20  USER#1: (AZTEC. CZRCECIZRCFCS, B16;3 (6) 
; 1956 1 167) = 0'023063', 
; 1957 1 168) = Bo" 105200' ; 
; 1958 i 169} = #0'000002' 

; 1959 1 170) = #0'002777', 
; 1960 1 171) = #0) > 
; 1961 1 172) = #0'002777', 
; 1962 1 173) = 0'053200'. 
> 1963 1 174) = #0'115400'. 
: 1964 1 175) = #0'003000' 
; 1965 1 176) = #0'117401'. 
; 1966 1 177) = #0'053167', 
; 1967 1 178) = 0'000000'; 
> 1968 1 179) = #0'104300'. 
; 1969 1 180) = #0'002774'. 
:; 1970 1 181) = #0'002776'. 
; 1971 1 182) = #0'023215'. 
; 1972 1 183) = #0'060010'. 
; 1973 1 184) = #0'104300'. 
; 1978 1 185) = #0'002773'. 
; 1975 1 186) = #0'002776'. 
; 197% 1 187) = #0'023215'. 
; 1977 1 188) = so! ' 
; 1978 1 189) = #0'104207'; 
; 1979 1 190) = #0'002776'. 
; 1980 1 191) = #0'104201'; 
; 1981 1 192) = #0'000001’; 
; 1982 1 193) = #0'060022'. 
; 1983 1 194) = #0'103207' 
; 1984 1 195) = o!177740" 
; 1985 1 196) = #0'115007' 

; 1986 1 197) = #0'013227'; 
; 1987 1 198) = #0'060010'. 
; 1988 1 199) = £0! ” 
; 1989 1 200} = #0'165572' 
; 1990 1 201) = #0'000000' }; 
; 1991 1 

; 1992 1 : 

; 1993 1 ! THE FOLLOWING 4 BLOCK VECTORS WITH DM_13,D0M_19,0M_26,0M_27 
3 1994 i { WERE APPENDED IN VERSION 6 





| Lie 


ZRCF RS 
v03.0 


— 
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CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bli 
BLOCK TRANSFER TEST 11-Jan-1985 08:19:20 USER$1: [AZ 
ssbttl ‘BLOCK TRANSFER TEST’ 
global 
OM_13 : vector A | ae word) preset ( 

: 2 %o' 000320 » ! THIS IS THE DOM PROGRAM BYTE COUNT. 

¢ = #000000" ! THIS IS THE DM OVERLAY BYTE COUNT. 

4 ® 0'042524', ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 

5 *® #0'052123', ! PROGRAM NAME IS ‘TEST13' 

6 * #0'031461', 

7 * #0'000000', ! THIS IS THE PROGRAM VERSION 

8 = #0'126411', ! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 

9 = #0'000000', 

10 * £0' ‘. 

il = 0'000000', 

l2 # 0'000000', 

13 # #0'000000', 

id = #0'000000', 

15 * #0'000000', 

16 = #0'104206', ! DM CODE STARTS HERE 

17 = #0'00 * 

18 = #0'002743', 

19 = 0'104200', 

20 = #0'000104', 

21 5 ‘003045’, 

22 * 0'104207', 

23 = 0'003047', 

4 = #0'104201', 

25 x , 

26 s ‘ ' 

27 = #0'103200', 

28 = o' a. 

29 = 0'003047' 

30 = #0'103200', 

31 = ‘000001’, 

32 = #0'003051', 

33 = 0'114000', 

34 = #0'003 

35 * #0'104307', 

36 = #0'003047', 

37 = #0'104301', 

38 * ‘003050’, 

39 = 0'104202', 

40 5 ‘000400’ 

41 = 0'104203', 

42 * #0'003066', 

43 = 0'060020' 

44 * #0'115007', 

45 * #0'013005', 

46 * #0'115400', 

47 s #0‘ 003044 e 

48 * 0'1062u0', 

49 = #0'000012', 

50 = 003046‘ 

51 = 0'032763', 

52 = #0'003041', 





2-18 


CZR CFC IZRCE CA, B16;3 


SEQ 0361 
Page 


13 
(7) 


SEQ 0362 


VAX-11 Blies-16 V4.0-579 Page 
USER$1: (AZTEC. CZRCFCJZRCFC4.B16;3 


Mle 


27-Mar-1985 15:33:05 
11-Jan-1985 08:19:20 


CZRCFCO RC25 FR END TEST 
BLOCK TRANSFER TEST 


ZRCF RS 
vo3.0 


r-- 


Aad 
referee freee fe8e7 2878282828282 827828282 8282828828882 88282882882 8288288 8 tS te eeeeeeeeses eo 


Soe See 6 eee ee e2 aOe eee eS Cee se anwr ee weeaec 6 & Be & Bee 4 6 S&B he 6G eS s& 6 Se eS oe ef 


ereisietege ote etee teeta Eee 


a Ooo eee @ Pe ese @e @Peegceeeeeegeeeeeeeee#s#eeqeessees#bseetee#¢@dcseeoeee@¢eeee&astése«#é# 
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#2 92 6 OD OD OD OH OH OD OH OH 8H 8S 8H 8H OH 8H OH 8H 8H 8H 8S OS OH FH SH FS OH OC FH FO OS 8H OH OH SH OO SH SH O@ 8O OO OO SO SO Se SO Se SO Se Se Se Se 








Nie 


SEQ 0363 


lis 15 
s(AZTEC.CZRCFCIZRCFC4.816;3 "9%" (A> 





4 
é 
¢ 
& 
e 
a= 
>> 
se 
mo. - 
ne a. 
mw - eo ~ 
= 382 ¢ 
$8 wey ze 
OF ERG 

S280 «- 

fs € 3° : 

8 5 ** EF 2 

ge ¥ 53 He 5 

$28 ne 2S w 
ee ee Be rie - ee Sore Beige, Sivuuerern 
{vv} w 
og ~eaBRRRR=38888833 ABR aemessonenk sees gcnasaenesnsenesse 
gs s3eeeh Steececccsctavecentacs ty sasanenngaeercene see 
ong & S833% OSS e SEs SS sesso Ses ees eon eNsesneNsss 
EL % ZLLSSSSSOMSSSSSSSASASASSASASSASSSASSASS4SSrS sas SASS ase 
wo  "SRR88882292999999222222999999999999999992952929292828 
ee ¥ ee ee ee ee ee 
Sh as 
“a ~ es “4 

Pes ONE NEN NN I nr ny nc en 

Bis 8 2 snansner ans aed n SRA ANAK ENS RA ROT AURE EES SON TS Seen 
eee AR AARANNANR AAAS MAM AMAMARS SI SS SSS SSRARNANRARASSS 
a VNU NAUMANN NINN UN URI NUN UU OU FU OU FU Our eU ru nu nu ru uru arias furunenaauauns 
rs 
N> 00 00 0 0© OO 9 0D OO 9D OO OO 9D SO 8D FD OO FD SO 8S OD 9B 8D CO 8S ES SO 8S SO HO 8S OO OO SO OB 6S OO 0 0 OO OO ¢o OO Om 80 «eo + 


* 2 ©© 6© ©8 6© © ©© se 6 S@ oe 
seme sn 








B13 





SEQ 0364 

CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Blise-16 V4.0-579 P 
vo3.0 HEAD SWITCH TEST 11-Jen-1985 08:19:20 USER$1: AZTEC. CoRCECIZRCFCA, B16;3 — (BS 
: 2163 1 53 =# #0'003047', 
:; 2164 1 54 * #0'104200', 
; e165 1 55 ® ##0'000012', 
> 2166 1 56 * ##0'003132', 
: 2167 1 57 # #0'104307', 
; 2168 1 58 = #0'003127', 
:; 2169 1 59 * #0'104301', 
: 2170 1 60 ® ##0'003130', 
:; e171 1 61 * #0'104302' 
:; el72 1 62 * #0'003131', 
:o gare & 63 * ‘060015’, 
: e174 1 64 * #0'103207', 
: e175 1 65 = #0'177740', 
; 217% 1 66 * ##0'115007', 
:; e177 1 67 = #0'053036', 
; e178 1 68 * #0'103201', 
; e179 1 69 ® 0'177637', 
; 2180 1 70 * #0'106301', 
s e161 1 71 = #0'003130', 
>; e182 1 72 = #0'053036', 
; e183 1 73 * #0'106302' 
>; 2184 1 74 = #0'003131', 
: 2185 1 75 = 0'053036', 
>; 2186 1 76 = #0'023055', 
; 21867 1 77 2 
>; 2188 1 78 = #0'117400', 
s 2189 1 79 = #0'003132', 
s 2190 1 80 s ‘115000’, 
; 2191 1 61 = 0'003132', 
> 2192 1 82 a ‘073044’, 
; 2193 1 83 = #0'003011', 
; 2194 1 84 = 0'104200', 
>; 2195 1 85 = 0'000106', 
> 219% 1 86 = #0'003126', 
s e197 1 87 = 0'104207', 
s e198 1 88 = #0'003126', 
; e199 1 89 = #0'104201', 
; 2200 1 90 = ‘000005’, 
s e201 1 91 = 0'060022', 
s e202 1 92 = 0'060010', 
: 2203 1 93 = #0'114000', 
; 2204 1 94 = #0'003133', 
; e205 1 95 s #0'104307' 
; 2206 1 96 = 0'003127', 
s e207 1 97 * ’ 
; 2208 1 98 = #0'103207', 
; 2209 1 99 ® %0'177740', 
; 2210 1 100 * 0'115007', 
s dei1 1 101 * #0'053112’, 
; eel2 1 102 2 #0'104110'. 
; e213 1 103 = 0'003136', 
s e214 1 104 * #0'102200', 
s e215 1 105 x *000040' 
s 2216 1 106 = #0'003130', 
is oer. 107 = #0'053101', 
Ee :llU 108 ® ‘106 ° 
5 a 109 . . i 
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1 .0-579 age 
AZTEC.CZRCFC JZRCFC4.B16;3 (8) 
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CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bli 579 < mag 
BLOCK TRANSFER TEST 11-Jan-1985 08:19:20 USER$1:(A 2TEC, TCORCECIZRCFCS, 616;3 (9) 
Ssbttl ‘BLOCK TRANSFER TEST’ 

lobal 
4 DM_2 


: vector ta werd) q reves t ( 
s. S THE DM PROGRAM BYTE COUNT. 


1 

0 = #0'000650 

1 = 0'000000' ; ° 

¢ * %0' 000000" , ! THIS IS THE OM OVERLAY BYTE COUNT. 
ta * %0'042524', ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
5 * 0'052123', ! PROGRAM NAME IS ‘TEST21' 
fg # #0'030462', 

7 * 0'000000', ! THIS IS THE PROGRAM VERSION 
8 * #0'126411', ! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 
9 * %0'000000', 

10 = 0'000000', 

ll ® #0'000000', 

12 = 0'000000', 

13 * %0'000000', 

14 = #0'000000', 

15 = %0'000000', 

16 * ##0'104206', ! DM CODE STARTS HERE 
17 = 0'003223', 

18 = 0'104207', 

19 = #0'003176', 

20 * #0'104201', 

21 . ‘000002’, 

22 = 0'060023', 

23 = #0'114000', 

ra) = 0'003206', 

4 * %0' 104200' , 

27 = 0'003207', 

$8 . ao: dossol’ ” 

30 * %o'003176'. 

31 * #0'012771', 

32 = #0'104 ° 

33 = #0'000100' 

34 = 0'003206', 

35 = #0'104200', 

36 = 0'000140', 

37 = 0'003207', 

38 = 0'104200', 

39 = £0'144 - 

40 = #0'003202', 

4a) = #0'104300', 

42 = #0'003177', 

oe) = #0'003205', 

ag = 0'104300', 

45 = #0'003206', 

46 = #0'003177', 

47 s Pas P) 

48 = #0'003205', 

as = 0'053005', 

50 * 0'104300', 

51 = 0'003207', 

S2 = #0'003177', 





E13 








SEQ 0367 
ZRCFR4 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 | VAX-11 Bliss-16 V4.0-579 Pp 
03.0 BLOCK TRANSFER TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFCJZRCFC4.616;3. 99 (3) 
> 2324 1 53 * #0'114000', 
> 2325 1 [334 = %0'003200', 
> 2326 1 f25) = #0'023015', 
; 23e7 1 56 = 0'023045', 
> 2328 1 57 = %0'104200', 
> 2329 1 58 * #0'000104', 
; 2330 1 59 * #0'003175', 
>; 2331 1 60 = #0'003167', 
; 2332 1 61 = #0'114000', 
>; 2333 1 62 ® #0'003203', 
>; 2334 1 63 * #0'104307', 
; 2335 1 64 = #0'003176', 
> 2336 1 65 = #0'104301', 
; 2337 1 66 = #0'003177', 
> 2338 i 67 ® 0'104302', 
: 2339 1 68) = 0'003200', 
>; 2340 1 69 = #0'060015' 
>; 2341 1 70 * %0'103207', 
; 2342 1 71 = 0'177740', 
>; 2343 1 72 = #0'106020', 
>; 2344 1 73 : 003 
> 2345 1 74 = 0'053036', 
: 2346 1 75 = #0'115007', 
>; 2347 1 76 = #0'053036', 
>; 2348 1 77 = %0'000000' 
>; 2349 1 78 = 0'115400', 
; 2350 1 79 = 0'003203', 
; 2351 1 80 = 0'106200', 
> 2352 1 81 2 ‘000012', 
; 2353 1 82 = #0'003203', 
; 2354 1 [83 = 0'033017', 
; 2355 1 84 = 0'003164', 
; 2356 1 85 = #0'104200', 
; 2357 1 a& . '000040' , 
; 2358 1 87 . '003204', 
; 2359 1 88 = 0'023121', 
; 2360 1 a9 = #0'114000', 
; 2361 1 90 = #0'003210', 
ls 2362 1 91 = 0'104200', 
; 2363 1 92 = ‘} ‘ 
>; 2364 1 93 = 0'003242', 
; 2365 1 94 = #0'104200', 
; 2366 1 95 = 0'003256' 
; 2367 1 96 = 0'003245', 
; 2368 1 97 = #0'104300', 
; 2369 1 98 = #0'003201', 
; 2370 1 99 = 0'003246', 
; 2371 1 100 . ‘104 
; 2372 1 101 = 0'003202', 
; 2373 1 102 = #0'003247' 
; 2374 1 103 = #0'104300', 
; 2375 1 104 = #0'003201', 
; 2376 1 105 = 0'003254', 
; 2377 1 106 = #0'104300', 
; 378 1 107 = 0'003202', 
; 2379 1 108 = #0'003255', 
; 2380 1 109) = #0'104307', 


— 
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SEQ 0368 
P 20 





ZRCFR4 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 age 
v03.0 BLOCK TRANSFER TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFCIZRCFCA. B16;3 (9) 
> 2381 1 110 = 0'003176', 
; 2382 1 111 e xo! 104201' , 
; 2383 1 ite] # #0'003242', 
; 2384 1 ll ° 06 

; 2385 1 114 * #0'103207', 
; 2386 1 115 = #0'177740', 
; 2387 1 116 * #0'115007' 
; 2388 1 117 = #0'013115', 
; 2389 1 118 = 0'1154 

: 2390 1 1133 = #0'003210', 
se @s01 i 120 = #0'106200', 
: 2392 1 121 = #0'000012', 
; 2393 1 122 = 0'003210', 
> 2394 1 123 = 0'033050', 
; 2395 1 124 = 0'003164', 
s 23% i 125 = #0'117400', 
s e397 1 126 ® '003204', 
>: 2398 1 127 = %0'053050', 
s 2399 i 128 * ’ 

; 2400 1 129 = #0'104307', 
; 2401 1 130 = #0'003176', 
>: 2402 1 131 ® ‘060014’, 
; 2403 1 132 = #0'103207', 
; 2404 1 133 = 0'177740', 
s 2405 1 134 = #0'115007' 
; 2406 1 135 * #0'053155', 
; 2407 1 136 = #0'104110', 
>: 2408 1 137 = 0'003201', 
s 2409 1 138 = #0'106200', 
; 2410 1 139 . F 40', 
>: e411 1 140 * 0'003201', 
: e412 1 141 = #0'033137', 
: 2413 1 142 = #0'003155', 
; 2414 1 143 = #0'115401', 
> 2415 1 144 = #0'104110', 
>; 2416 1 145 = #0'003202', 
; 2417 1 146 = #0'104117', 
; 2418 1 147 = #0'103207', 
; 2419 1 148 . *144000' 
: 2420 1 149 . se eoatite® 
; e421 1 150 = 0'104117' 
; 2422 1 151 = #0' 103207", 
; 2423 1 152 = #0'104000', 
; 2424 1 153 = 0'106207', 
>: 2425 1 154 = 0'040000', 
s 2426 1 155 = #0'053155’, 
; 2427 1 156 = %0'000000' 
s 2426 1 157 = #0'115400', 
s e429 1 158 = 0'003241', 
: 2430 1 159 = #0'106200', 
; 2431 1 160 = 0'000144', 
s 2432 1 161 = #0'003241', 
; 2433 1 162 = #0'033121', 
; 2434 1 163 = 0'003164'; 
; 2435 1 164 = #0'104200', 
; 2436 1 165 = #0'000106', 
+ 2437 1 166 = #0'003175', 
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SEQ 0369 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05  VAX-11 Bliss-16 V4.0-57 p 21 
BLOCK TRANSFER TEST 11-Jan-1985 08:19:20  USER$1:(AZTEC.CZRCFCJZRCFC4.816;3 (9) 
167) = #0'104207', 
168) «= #0'003175', 
169) = #0'104201', 
170) = #9'000005' 
171) = #0'060022'. 
172) = #0'060010'- 
173) = 0'000000'. 
174) = 0'000000'; 
175) = 0'000000'-; 
176} = 0'000000'; 
177) = #0'000000', 
178) = #0'140000'; 
179] = $0'000000', 
180) = #0'000000'; 
181) = #0'000000': 
182) = s0'000000'; 
183) = #0'000000'. 
184) = 0'000000', 
185) = #0'000000'; 
186) = 0'000000'. 
187) = 0'000000'. 
188) = #9'000000'. 
189] = #9'000000'. 
190} = #0'000000'; 
191) = #0'000000'. 
192] = s0'000000', 
193] = s0'000000', 
194] = 0'000000', 
195} = #0'000000', 
196] = #0'000000'; 
197) = #0'000000'; 
198) = 0'000000’; 
199] = #0'000000': 
200) = #0'000000'; 
201) = 0'000000'. 
202} = #0'000000'. 
203} = #0'000000', 
204) = #0'000000'; 
205} = #0'000000'. 
206) = #0'000000’, 
207] = #0'000000'. 
08) = #0'000000'. 
09] = 0'000000'; 
210} = #0000000’; 
211) = 0'065461' 
212) = #0000000’ 5; 
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ZRCFR4 CZRCFCO RC25 FR END TEST 
v03.0 WRITE DATA TEST 

>; 2485 1 ‘sbttl ‘WRITE DATA TEST’ 
>; 2486 1 VER:C THIS TEST 
>; 2487 1 globe! 

>; 2488 1 

>; 2489 1 DM_26: jVECTOR( 413, WORD ) 

; 2490 1 PRESE 

>; 2491 1 0 x #0'001470', ! 
>; e492 i i = #0'000000', 

>; 2493 1 2 = 0'000000', ! 
>; 2494 1 3 ® *000000’ 

; e495 1 4 =» €0'042524', ! 
>; 2496 1 5 = #60'052123', ! 
3; 2497 1 6 = '033062', 

>; 2498 1 7 = #0'000000', ! 
>; 2499 1 8 = #60'126411', ! 
; 2500 1 g = ‘000000’ , 

; e501 1 10 = 0'000000', 

; 2502 1 ll = 0'000000', 

; 2503 1 12 = #0'000000', 

; 2504 1 13 = 0'000000', 

; 2505 1 14 = 0'000000', 

; 2506 1 15 = #0'000000', 

; 2507 1 16 = £0'104206', ! 
; 2508 1 17 5 ‘003550’ 

; 2509 1 18 = 0'022777' 

; 2510 1 19 = 0'023005', 

; e511 1 20 = #0'104206', 

; 2512 1 21 = 0'003550', 

s; 2513 1 22 = '106200' , 

>; 2514 1 23 = 0'177777', 

; 2515 1 24 = 003507’. 

; 2516 1 25 = #0'012770', 

: 2517 1 26 = 0'023030', 

>; 2518 1 27 = 0'023043', 

; 2519 1 28 = #0'104200', 

: 2520 1 29 = 0'177777', 

; e521 1 30 = 0'003507', 

; 2522 1 31 = 0'114000', 

; 2523 1 32 = #0'003501', 

; 2524 1 33 = #0'114000', 

; 2525 1 34 = 0'003477', 

; 2526 ! 35 = #0'114000', 

; 227 1 36 = #0'003500', 

; 2528 1 37 = #0'104200', 

; 2529 1 38 = #0'000010', 

; 2530 1 1334 = #0'003473', 

; 2531 1 40 = 0'023052', 

s 2532 1 41 = 0' 023065", 

; 2533 1 42 = 0'104 : 

; 2534 1 43 = 0'177777', 

; 2535 1 44 = 0'003476'. 

; 2536 1 45 = #60'023461', 

s 2537 1 46 = #0'060010', 

; 2538 1 47 = 0'104207', 

; 2539 1 48 = #0'003506', 

; 2540 1 49 = #0'104201', 

; 2541 1 50 = #0000001’, 


[— 
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VAX-11 Bliss-16 V4.0-579 
USER$1:[AZTEC.CZRCFCJZRCFC4.616;3 


SEQ 0370 
P 22 
(10) 


27-Mar-1985 15:33:05 
11-Jan-1985 08:19:20 





WAS REVISED 


THIS IS THE DM PROGRAM BYTE COUNT. 
THIS IS THE DM OVERLAY BYTE COUNT. 


NEXT 3 WORDS = PROGRAM NAME (ASCII) 
PROGRAM NAME IS 'TEST26' 


THIS IS THE PROGRAM VERSION 
UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 


DM CODE STARTS HERE 





ZRCFRA CZRCFCO_RC25 FR END TEST 
vo3.0 WRITE DATA TEST 

; 2542 1 51) = + -#80'060023', 
; 2543 1 52) = 0! " 
; 2544 1 53) = 80" 114000", 
; 2545 1 54) =~ #60" 003504", 
; 2546 1 55) = + 80" 104200", 
; 2547 1 56) = 80'000040' 
; 2548 1 57] = +60'003505', 
; 2549 1 58) = +80'102200', 
; 2550 1 59) = #0! 5 
; 2551 1 60} = #0'003506'. 
; 2552 1 61) = +#0'013027', 
; 2553 1 62) = 0'104200'; 
; 2554 1 63) = #60'000100', 
; 2555 1 64) = +0'003504', 
; 2556 1 65) = #0'104200'; 
; 2557 1 66) = #0'000140', 
; 2558 1 67} = #0'003505', 
; 2559 1 68] = #0'104200'; 
; 2560 1 69] = #0'144000', 
; 2561 1 70) = + -#0'003472", 
; 2562 1 71) = + #60'000000' ; 
; 2563 1 72) = +=0'104300'; 
; 2564 1 73) = 80'003504"; 
; 2565 1 74) =~ #0'003503'; 
; 2566 1 75) =: 80'023236', 
; 2567 1 76) == #0'023177", 
; 2568 1 77) == #60'023116', 
3 2569 1 78) = #0'023362", 
; 2570 1 79) = + -60'023137", 
; 2571 1 80) = #0'023177'. 
; 2572 1 81) = #0'023160', 
; 2573 1 82) = #0'000000' ; 
; 2574 1 83) = #0'023177", 
; 2575 1 84) = #0'023137', 
; 257% 1 85) = #0'023362", 
; 2577 1 86) = #0'023116', 
; 2578 1 87} = #0'023177', 
; 2579 1 88) = #0'023160', 
; 2580 1 89) = #0 m 
; 2581 1 90] = #0'104300', 
; 2582 1 91) = #0'003505', 
; 2583 1 92] = #0'003503', 
; 2584 1 93) = #0'023236', 
; 2585 1 94) = #0'023177', 
; 2586 1 95) = #0'023116', 
; 2587 1 9%] = #0'023362", 
; 2588 1 97) = #0'023137'. 
; 2589 1 98) = #0'023177', 
; 2590 1 99} = #0'023160', 
; 2591 1 100) = #0! : 
; 2592 1 101) = #0023177", 
; 2593 1 102) = #0023137", 
; 2594 1 103) = #0023362", 
; 2595 1 104) = #0'023116', 
; 25% 1 105) = #0'023177', 
; 2597 1 106) = #0023160", 
; 2598 1 107] = 0000000" ; 


[-- 
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27-Mar-1985 15:33:05 VAX-1 9-16 V4. 


SEQ 0371 
1 Bliss- 0-57 
11-Jan-1985 08:19:20  USER$1:(AZTEC.CZRCFCIJZRCFC4.B16;3 


P 23 
9910) 










$$ _—$ $s 
J13 





ZRCFR4 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:33:05  VAX-11 Bliss-16 V4.0-579 “i oo 
v03.0 WRITE DATA TEST l1-Jen-1985 08:19:20 USERS1:CAZTEC-CZRCECIZRCFCS, B16;3 (10) 
; 2599 1 108) = =#0'104307', 
; 2600 1 109} = +80'003506', 
; 2601 1 110) = #0'104301', 
; 2602 1 111} =~ 80'003503', 
; 2603 1 112) = = #0'104302'; 
: 1 113} = ~=80'003501', 
; 2605 1 114] = =§0'060015'; 
> 2606 1 115) = =#60'104070', 
; 2607 1 116] = 60'003476', 
; 2608 1 117} = = #0'103207', 
; 2609 1 118) = +60'177740', 
: 2610 1 119) = #60'115007', 
>; 2611 1 120) = #0'053115', 
; 2612 1 121) = 106020' ; 
; 2613 1 122] = #60'003501', 
; 2614 1 123] = + #0'053115", 
; 2615 1 124) = #0 

; 2616 1 125} = #0'003424', 
; 2617 1 126) = #60'114007', 
; 2618 1 127) = #60'104301', 
; 2619 1 128] = 60'003475', 
; 2620 1 129) = #60'100671', 
; 2621 1 130) = #0'003566 
; 2622 1 131) = #60'115407'; 
; 2623 1 132} = #0'106207", 
; 2624 1 133) = #60'000377', 
; 2625 1 134) = = #0'033121', 
; 1 135} = #60'104207", 
; 2627 1 136) = #0'003566 
; 2628 1 137} = #0'104201", 
; 2629 1 138} = 0'000400', 
; 2630 1 139} = 60'060004', 
; 2631 1 140) = #80'104010'; 
; 2632 1 141} = #0'004166', 
; 2633 1 142} = #0'000000' 
; 2634 1 143) = #0'114007', 
; 2635 1 144) = #0'104301', 
; 2m i 145} = #60'003474' 
; 2637 1 146] = #0'100671', 
; 2638 1 147] = #80'003566 
; 2639 1 148) = #0'115407", 
; 2640 1 149) = #0'106207', 
; 2641 1 150) = #0'000377', 
; 2642 1 151) = #0033142", 
; 2643 1 152} = 60'104207", 
; 2644 1 153] = #0'003566', 
; 2645 1 154) = #0'104201'; 
; 2646 1 155} = 0'000400', 
; 2647 1 156) = 0° 
; 2648 1 157} = #0'104010'; 
; 2649 1 158) = #0'004166', 
; 2650 1 159) = #0’ ' 
; 2651 1 160} = #0'104301', 
; 2652 1 161} = #0'003477", 
; 2653 1 162} = #0'114007', 
; 2654 1 163) = #0'104672'. 
; 2655 1 164) = #0'003566', 


[— 












K13 





SEQ 0373 





ZRCFR4 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-579 
vO3.0 WRITE DATA TEST 11-Jan-1985 08:19:20 USER$1; (AZTEC. CZRCFCJZRCFC4.616;3 *9 15) 
; 2656 1 165 = #0'106012', 
; 2657 1 166 = #60'053174', 
; 2658 1 167 * #0'115407', 
; 2659 1 168 = #0'106207', 
; 2660 1 169 * #0'000377', 
; 2661 1 170 = #60'033163', 
: 2662 1 171 e p : 
; 2663 1 172 = #0'104020', 
; 2664 1 173 * #60'003500', 
; 2665 1 174 = #0'003424', 
; 2666 1 175 = #0'104200', 
; 2667 1 176 =» #0'1 : 
; 2668 1 177 * #0'003552', 
; 2669 1 178 * #0'104200', 
: 2670 1 179 = #0'003566' 
; 2671 1 180 * #0'003555', 
; 2672 1 181 * #0'104300', 
; 2673 1 182 = £0'003467', 
; 2674 1 183 = #0'003556', 
. ow 3 184 = #0'104300', 
; 2676 1 185 = #0'003470' 
: 2677 1 186 * #0'003557', 
; 2678 1 187 = #0'104 : 
; 279 1 188 = #0'003467', 
; 2680 1 189 = #0'003564', 
; 2681 1 190 = #0'104300', 
; 2682 1 191 = #0'003470', 
; 2683 1 192 = #0'003565', 
; 2684 1 193 = #0'104307', 
; 2685 1 194 = #0'003 ° 
; 2686 1 195 = #0'104201', 
: 2687 1 196 * #0'003552', 
; 2688 1 197 = ‘06000. 

; 2689 1 198 = #0'104070', 
; 2690 1 199 = #0'003476', 
; 2691 1 200 = #0'103207', 
: 2692 1 201 = #0'177740', 
s 2693 1 202 * #0'115007', 
; 2694 1 203 = #0'013235', 
; 2695 1 204 = #0'003424', 
; 2696 1 205 = #0'000000', 
s 2697 1 206 = #0'023074', 
; 2698 1 207 * #0'114000', 
s 2699 1 208 = #0'003502', 
; 2700 1 209 = #0'104307', 
s 2701 1 210 = #0'003506', 
s 2702 1 211 = #0'060014', 
s 2703 1 212 = #0'104070', 
; 2704 1 213 = #0'003476', 
s 2705 1 214 * #0'103207' 
s 2706 1 215 = #0'177740' 
s 2707 1 216 = #0'115007', 
s 2708 1 217 = #0'053361' 
s 2709 1 218 = #0'114002', 
s 2710 1 219 = #0'104113', 
>) gran Ss 220 = #0'106613', 
. ome & 221 = #0'000002', 


[- 








—_————__——_— 
Lao 


SEQ 0374 

ZRCFRS CZRCFCO RC2S5 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-579 P 26 
v0O3.0 WRITE DATA TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC .CZRCFC JZRCFC4.B616;3 99 (10) 
: e713 1 222 * #0'053262', 
; e714 1 223 * #0'106613', 
s e715 1 224 = 0'000004' 
; e716 1 2e5 = #0'013306', 
i. das: 8 226 = #0'106613', 
; e718 1 227 = #0'000004', 
; e719 1 228 = #0'053270', 
; e720 1 2e9 = #0'106613', 
; e721 1 230 * #0'000006', 
; e722 1 231 = #0'013306', 
s e723 1 232 = #0'106613', 
>; e724 1 233 * #0°000002', 
:; eves 1 234 * #60'053276', 
; 2726 1 235 = #0'106613', 
aa & 236 = #0'000006', 
: e728 1 237 * #£0'013306', 
; e729 1 238 = #0'104613', 
» ate i 239 = #0'000002', 
'-gae & 240 = #0'106613', 
: e732 1 241 = #0'000004', 
s e733 i 242 * #60'053361', 
; e734 1 243 = #0'106613', 
: e735 1 244 = 0'000006', 
: 2736 1 245 = #0'053361', 
: 2737 1 246 * #0'115002', 
: 2738 1 247 * #60'053316', 
: 2739 1 248 = #0'104030', 
; 2740 1 249 = #0'003467' 
; e741 1 250 = #0'115401', 
; e742 1 251 * #0'104202', 
: e743 1 252 * #60'177777', 
; 2744 1 253 . ‘003253’, 
> e745 1 254 * #0'104030', 
; 274 1 255 = #0'003470', 
>; 2747 1 256 = #0'104300', 
>; 2748 1 257 = 0'003467', 
; e749 1 258 = #0'003502', 
s 2750 1 259 * #0'103200', 
s e751 1 260 » #60'177740', 
; gm & 261 * #0'003502', 
s #253 3 262 * #0'102200', 
s e274 1 263 ° : - 
eR a. a 264 = #0'003467', 
; 2756 1 265 = #0'053361', 
s eter 3 266 * #0'102200', 
; ee 8 267 = #0'01 < 
: gay & 268 = #0'003470', 
s 2760 1 269 * #60'053361', 
s 2761 1 270 * #0'106300', 
; 2762 1 271 * #0'003472', 
s 2763 1 272 * #0'003470', 
; 2764 1 273 * #0'053361', 
s 2765 1 274 * #0'104302', 
+; 2766 1 275 * #0'003467', 
; 2767 1 276 * #0'105202', 
s+ 2768 1 277 = #0'000000', 
s+ 2769 1 278 = #0'103202', 


[— 
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SEQ 0375 
ZRCF RS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-57 P 
vos. GRITE Bath fest 11-Jan-1985 08:19:20 USERIL: PALTEC CZRCECIZRCFC4.B16,3 Amat | 
; 2770 1 279 * #0'000037', 
b. aia # 280 = #0'110602', 
am 2 281 * #0'110602', 
: e773 1 282 * #0'110602', 
: e774 1 283 * #0'110602', 
; e775 1 284 * #0'110602', 
: 277% 1 285 * #0'106302', 
oi) aye 286 * #0'003473', 
; e778 1 287 * #0'053361', 
; e779 1 288 * #0'000000' , 
: 2780 1 289 = #£0'003424', 
: 2781 1 290 * #0'104300', 
; e782 1 291 = #0'003566', 
; 2783 1 292 * #0'003477' 
: 2764 1 293 * #0'104200', 
: e785 1 294 = #0‘ 140000', 
; 2786 1 295 * #0'003552', 
s 27687 1 296 * #0'104200', 
: 2788 1 297 * #0'003566' 
s 2769 1 298 * #0'003555', 
p> are s 299 =» #0'104 ’ 
s; e791 1 300 = #0'003467' 
; gre & 301 * #0'003556', 
s eres i 302 = #0' 104300 
s 27% 1 303 = #0'003470', 
: 2795 1 304 * #0'003557', 
; 279% 1 305 * #0'104300', 
‘awe 2 306 = #0'003467', 
; 2798 1 307 = #0'003564', 
; 2799 1 308 = #0'104300', 
: 2800 1 309 * #0'003470', 
s 280: 1 310 * #0'003565', 
s 2802 1 311 = #0'104307', 
: 2603 1 312 * #0'003506' 
> 2604 1 313 * #0'104201', 
: 2605 1 314 * #0'003552', 
; 2606 1 315 * #0'060003' 
: 2607 1 316 * #0'104070', 
s 2608 1 317 * #0'003476', 
s 2609 1 318 * #0'103207', 
> ae 3 319 =» #60'177740', 
; 2611 1 320 * #0'115007', 
; 2812 1 321 * #0'013423', 
s 2013 1 322 * #£0'003424', 
s 2614 1 323 =» #0’ . 
s we 3 324 * #0'115400', 
> 2616 1 325 = #0'003471', 
: wear 2 326 * #0'106200', 
> 2618 1 327 * #0'000100', 
s 2819 1 328 * #0'003471', 
ye . 1 329 * #0'013433', 
s 2821 1 330 = #0'002744', 
s 2822 1 331 * #0'115400', 
+ 2623 1 332 * #0'003501', 
+ 2624 1 333 * #0'115400', 
+ 2625 1 334 = #0'003473', 
+ 2626 1 335 * #0'114000', 
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SEQ 0377 
ZRCFR4 CZRCFCO RC2S FR END TEST 27-Mar-1985 15:33:05  VAX-11 Blies-16 V4.0-57 P 29 
v03.0 WRITE DATA TEST 11-Jan-1985 08:19:20  USER$1:(AZTEC.CZRCFCJZRCFC4.B16;3 (10) 
> 2884 1 393) = #60'000000', 
:; 2885 1 394) = #0'000000'. 
> «2886 1 395) = 0'000000'. 
> «2887 1 396) = #0'000000'. 
> «2888 1 397) = #0'000000'. 
> «2889 1 398) = #0'000000'. 
> 2890 1 399) = #80'000000'. 
:; 2891 1 400] = 0'000000' 
: 2892 1 401) = #0'000000'; 
; 2893 1 402} = #0'000000'; 
: 2894 1 403} = #0'000000'; 
: 2895 1 404) = 0'000000'; 
; 28% 1 405) = #0'000000'; 
; 2897 1 406) = #0'000000'. 
; 2898 1 407) = #0'000000'; 
; 2899 1 408) = #0'000000': 
; 2900 1 409} = #0'000000'; 
; 2901 1 410) = 0'000000'; 
; 2902 1 411) = #0'044552' 
; 2903 1 412) = #0' 5; 
3 2904 1 
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CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Blise-16 V4,0-579 een, 30 
OFFSET TOLERANCE TEST \1-Jan-1985 08:19:20 USER$1; (AZTEC .CZRCFC JZRCFC4.B16;3 (11) 





Ssbttl ‘OFFSET TOLERANCE TEST’ 
globel 
OM_27 : vector (307, word) preset ( 

: = ee oosnoee ! THIS IS THE DM PROGRAM BYTE COUNT. 
. * ee conse: ! THIS IS THE DM OVERLAY BYTE COUNT. 
4 = #0'042524', ! NEXT 3 WORDS = PROGRAM NAME (ASCII) 
5 = #0'052123', ! PROGRAM NAME IS ‘TEST27' 
6 # #0'033462', 

7 = ##0'000000', ! THIS IS THE PROGRAM VERSION 
8 * #0'126411', ! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 
s ® #0'000000', 

10 = #0'000000', 

11 = #0'000000', 

12 # #0'000000', 

i3 = 0'000000', 

14 = 0'000000', 

is . *000000', 

16 > *104206', ! DM CODE STARTS HERE 

17 = 0'003377', 

18 = #0'022750', 

19 = #0'022756', 

20 = 0'022776', 

21 = #0'023040', 

22 = 0'023305', 

23 = 0'060010', 

24 = 0'104207', 

25 2 ‘003320’, 

26 = #0'104201', 

27 = 0'000001', 

28 = #0'060023', 

29 = fo' , 

30) = + #0’ 114000", 

31 = #0'003321', 

$2] = 0' 104200", 

34 = #0'003322', 

35 * #0'102200', 

36 s *000001', 

37 . ‘003320', 

38 * #0'012775' 

39 = #0'104200', 

40 = #0'000100' 

4l * #0'003321', 

42 * #0'104200', 

43 = 0'000140' 

ro = %o' 003322", 

46 = #0'114000', 

47 * #0'003330', 

48 * 0'114000', 

49 = #0'003332', 

50 = ‘104300’, 

51 * #0'003321', 

52 = 0'003336', 
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CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-1 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$ 
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Bliss-16 V4,0-579 nse ty 
: (AZTEC. CZRCFCJZRCFC4.616;3 (11) 


—h 





%o' 003324"; 
%o' 003334". 
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SEQ 0380 
P 





ZRCFR4 CZRCFCO _RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-579 32 
V03.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFCJZRCFC4.B16;3 aaets) 
s 3019 1 110 * #0'003045', 
: 3020 1 lll * %0'000000' 
; 3021 1 lle = #0'114000', 
: 3022 1 113 * #0'003327', 
: 3023 1 114 = %0'104307', 
; 3024 1 115 * %0'003320', 
; 3025 1 116 = #0'104301', 
: 3026 1 117 = #0'003326', 
es goer i 118 * #0'104202', 
: 3028 1 119 = #0'000174', 
s 3oeo } 120 = ##0'060013', 
; 3030 1 121 e ‘103207’, 
; 3031 1 122 = #0'177740', 
; 30 1 123 * #0'115007' 
; 3033 1 124 = #0'013124', 
: 3034 1 125 * #0'115400', 
s 3035 1 126 = #0'003327', 
; 3036 1 127 = #0'106200', 
s 3037 1 128 * #0'000012', 
; 3038 1 129 * #0'003327', 
s 3039 i 130 * #0'033102', 
> 3040 1 131 = 0'003300', 
; 3041 1 132 = fto' 

: 3042 1 133 = #0'104307', 
; 3043 1 134 = #0'003320', 
; 3044 1 135 ° *060014' 
: 3045 1 136 = #0'103207', 
> 3046 1 137 * #0'177740', 
: 3047 1 138 ° ‘11500 

; 3048 1 139 = #0'053161', 
s 3049 1 140 . ‘104110’, 
: 3050 1 141 = 0'003313', 
s 3051 1 142 e *106200' , 
; 30 1 143 * *000440' 
s 3053 i 144 * #0'003313', 
; 3054 1 145 = 0'033143', 
; 3055 1 146 = #0'003161', 
: 1 147 * #0'115401', 
s poor i 148 = #0'104110', 
; 3058 1 149 = #0'003314', 
s 3059 1 150 * 0'104117', 
: 3060 1 151 * 0'103207', 
; 3061 1 152 = 0'144000', 
; 3062 1 153 = #0'053161', 
s 3063 1 154 * #0'104117' 
; 3064 1 155 * #0'103207', 
: 3065 1 156 = #0'104 

s 3066 1 157 = %0'106207', 
s poor 3 158 s 04 ’ 
; 3068 1 159 = #0'053161', 
s 3069 1 160 ° ‘ = 
; 3070 1 161 . a’ . 
s 3071 1 162 = #0'003331', 
+ 3072 1 163 = 0'106200', 
s 3075 1 164 = #0'000144', 
s 3074 1 165 = #0'003331', 
s 3075 i 166 = #0'033125', 


— 
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SEQ 0381 





ZRCFB4 CZRCFCO_RC2S FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-579 P 
vo3.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USERIL: CAZTEC. CZRCECIZRCFC4.B16,3 e943) 
>; 3076 1 167 = %0'003300', 
; 3077 1 168 = #0'100467', 
; 3078 1 169 * #0'114000', 
: 3079 1 170 * #0'003315', 
: 3080 1 171 * #0'104200', 
; 3081 1 172 = #0'001475', 
; 3082 1 173 = #0'003335', 
; 3083 1 174 = #0'104307', 
: 3084 1 175 * #0'003320', 
; 3085 1 176 * #0'104301', 
; 3086 1 177 = #0'003336', 
: 3067 1 178 * #0'104302', 
; 3088 1 179 = #0'003335', 
; 3089 1 180 e *060015', 
; 3090 1 181 * %0'103207', 
; 3091 1 182 = #0'177740', 
s 3092 1 183 = ##0'106020', 
; 3093 1 184 = #0'003335' 
; 3094 1 185 * #0'053216', 
; 3095 1 186 = #o'll 

; 309% 1 187 * #0'053216', 
; 3097 1 188 = #0'104267', 
; 3098 1 189 . ' , 
: 3099 1 190 * #0'115400', 
: 3100 1 191 = #0'003315', 
; 3101 1 192 ° '106200', 
s 3102 1 193 s 5 ‘. 
s 3103 1 194 = #0'003315', 
> 3104 1 195 = #0'033176', 
s 3105 1 196 = #0'003300', 
> 3106 1 197 = to'l . 
; 3107 1 198 = #0'114000', 
: 3108 1 199 = #0'003316', 
; 109 1 200 ° *114000', 
s 3110 1 201 = #0'003317', 
s 3811 3 202 = #0'104200', 
Ts CSL 203 e ‘1 ". 
s pals 3 204 = 0'003400', 
s $134 } 205 = #0'104200', 
s Bas 3 206 = 0'003414', 
s 3116 1 207 = #0'003403', 
s 3sii7 ji 208 ° * 104300’, 
s 3116 1 209 * #0'003313', 
s 3119 1 210 = %0'003404 

s 3120 3 211 = %0'104300', 
s 3121 1 212 = 0'003314', 
o* Soa <o 213 = 0'003405', 
s si2zs i 214 * #0'104300', 
; 3124 1 215 = #0'003313', 
; 3125 1 216 = 0'003412', 
; 126 1 217 * *104300', 
> Guero 218 = #0'003314', 
; 3128 1 219 = #0'003413', 
: Bev & 220 * %0'104307', 
s 3130 1 221 = #0'003320', 
5 Base & 222 * #0'104201', 
s Sine 3 223 = 0'003400', 


[— 
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ZRCFR4 CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 gy 
v03.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFCIJZRCFCA, B16;3 (11) 








; giss 1 224 = 0'060002', 
; 134 1 225 = #0'103207', 
s 3135 1 3] * %0'177740', 
; 3136 1 2e7 = #0'115007', 
s gis? i 228 = %0'013267', 
: 3138 1 229 . "1154 

¢ $139 1 230 = #0'003316', 
> 3140 1 231 = #0'104307', 
>; 3141 1 232 * %0'003400', 
> 3142 1 233 = #0'102207', 
> 3143 1 234 . ; . 
: 144 1 235 = #0'013276', 
>; 3145 1 236 = #o'll < 
>; 3146 1 237 = #0'003317', 
; 3147 1 238 = #0'104267', 
; 3148 1 239 . , 
>; 3149 1 240 = #0'104200', 
: 3150 1 241 s '000106' 
s sian 3 242 = 0'003333' 
s side i 243 = #0'023305', 
s; 3153 1 244 = #0'060010', 
s; 3154 1 245 = #0'104207', 
; 3155 1 246 = #0'003333', 
s 31356 1 247 = #0'104201', 
s gplor 3 248 ° P : 
> wa a 249 = #0'060022', 
s BP 3 250 . '000000' , 
s 3160 1 251 . ‘000000', 
s 3161 1 252 = %0'140000', 
H 162 1 253 * ‘000000’ , 
s 3163 1 254 = 0'000000', 
; 164 1 255 = %0'000000', 
s 3165 1 256 = 0'000000', 
; 166 1 257 = 0'000000', 
s 3167 } 258 = 0'000000', 
: 3168 1 259 = %0'000000', 
s 3169 1 260 = %0'000000', 
s 3170 1 261 = %0'000000', 
s 3171 1 262 = %0'000000', 
s sive i 263 = 0'000000', 
s pars 3 264 = 0'000000', 
: 3174 1 265 = %0'000000', 
s 3175 1 266 ° ‘000000’, 
; 3176 1 267 = #0'000104', 
_ we 2 268 s '000000' , 
s 3178 1 269 = %0'000000', 
s 3179 3 270 = %0'000000', 
; 3180 1 271 = %0'000000', 
s 3181 1 272 s ‘000000’ , 
s 3182 1 273 = %0'000000', 
s 3163 } 274 = 0'000000', 
; 3164 1 275 = %0'000000', 
s $1835 3 276 . ‘000000’, 
s 3186 1 277 = %0'000000', 
s 3187 1 278 = %0'000000', 
> 3186 1 279 = '000000' , 
s 3109 3 280 = %0'000000', 


[— 
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SEQ 0383 


5:3 P 35 
8:1 mata 


ZRCFB4 CZRCFCO RC25 FR END TEST 
/VO03.0/ 


DMSCODE, RO, DOD , GBL 
270 





RCFCO_RC2S FR END TEST 
SFFSE oT OLERANCE TEST 





1 


VAX-11 
USER$1:; 





16 V4. 


. CZRCF 





0-57 
CIZRCFC4.B16;3 
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CZRCFCO RC25 FR END TEST 


OFFSET TOLERANCE TEST 
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27-Mar-1985 15:33:0 
11-Jan-1985 08:19:2 





SEQ 0385 
5 VAX-11 Bliss-16 V4,0-579 Page 37 
0 USER$1;:([AZTEC.CZRCFC JZRCFC4.616;3 (11) 
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CZRCFCO_RC2S FR END TEST 
OFFSET TOLERANCE TEST 
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27-Mar-1985 15:33:05 
11-Jan-1985 08:19:20 
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VAX-11 Bliss-16 V4.0-579 p hoery 38 
USER$1; (AZTEC .CZRCFC JZRCFC4.616;3 (11) 
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ZRCFRS CZRCFCO_RC2S FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 
v0O3.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFC JZRCFC4.B16;3 


000576 104301 «WORD -73477 
000600 304 








a ha 39 
est 11) 





- WORD 1 
.WORD -73476 
. WORD 43 
WORD = - 73575 
WORD 3044 
-WORD 60021 
«WORD -74571 
. WORD -40 
-WORD  -62771 
-WORD 13012 
. WORD -624 
-WORD 3046 
-WORD -71600 
-WORD 12 
-WORD 3046 
-WORD 32766 
-WORD 3023 
-WORD -60374 
«WORD 13027 
«WORD -72600 
-WORD 2 
-WORD 3040 
-WORD -73500 
-WORD 3040 
-WORD 3044 
-WORD 2764 
«WORD -73 
- WORD 06 
. WORD 5 
-WORD 3032 
° WORD > 7 
-WORD 1 
. WORD 
-WORD -73571 
«WORD 304 
«WORD = -73577 
-WORD 1 
«WORD 60022 
-WORD 60010 
-WORD O 
-WORD 0 
-WORD 0O 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
«WORD 0O 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0O 
«WORD 0 
-WORD 0O 

0 

0 
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on by CZRCFCO _RC25 FR END TEST 27-Mar-1985 
voS. 


' EO Ose0 
OFFSET TOLERANCE TEST 11-Jan-1985 0 


5:33:05 VAX-11 Bliss-1 
8:19:20 


6 V4.0-579 age 40 
USER$1:(AZTEC.CZRCFC JZRCFC4.616;3 (11) 
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CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:33:05  VAX-11 Bliss-16 V4.0-57 ~ "Pape. 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFC )ZRCFC4.616;3 (11) 
-WORD 23210 
WORD 23120 
WORD 23126 
WORD 23210 
-WORD 23120 
WORD 23155 
WORD 232 
-WORD 600 
-WORD -73571 
-WORD 277 
-WORD  -73577 
-WORD 3 
-WORD 60023 
-WORD -40 
«WIRD = -62771 
«WORD 13030 
-WORD 3203 
-WORD 0 
-WORD -73 
-WORD 2770 
-WORD 2777 
-WORD -73 
-WORD 2771 
. WORD 
«WORD -73477 
-WORD 2772 
-WORD = -73571 
-WORD - 4 
-WORD = -70471 
. WORD 77 
-WORD -73710 
- WORD 2 
-WORD 23063 
-WORD ~~ 
~ WORD 2 
-WORD 2777 
-WORD -63 
-WORD = 2777 
-WORD 5 
-WORD -62400 
. WORD 
-WORD -60377 
WORD 53041 
-WORD 0 
« WORD al 7731 1 e 
«WORD -77317 
«WORD -77316 
«WORD = -77315 
-WORD  -7347) 
-WORD 2777 
-WORD  -73477 
«WORD -73576 
. WORD 
-WORD = -73575 
. WORD 2 
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SEQ 0390 





ZRCFR4 CZRCFCO_RC2S FR END TEST 27-Mar-1985 15:33:05  VAX-11 Blies-16 V4.0-579 Page 42 
vos.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFCJZRCFC4.B16;3 (11) 
001324 060021 .WORD 6002 
1326 103207 ;WORD = - 74571 
001330 177740 ;WORD = -40 
001332 115007 :WORD = -62771 
001334 013113 “WORD = 13113 
001336 115400 :WORD = 624 
340 003003 :WORD 3003 
001342 106200 “WORD © - 71600 
001344 000012 “WORD 1 
001346 00300 : WORD 
001350 033067 "WORD 33067 
001352 003203 vw RO 
54 104263 ‘WORD = 73515 
001356 1 “WORD = - 73516 
1360 104261 “WORD = - 73517 
001362 “WORD = - 73511 
001364 : WORD 
1366 104207 “WORD = - 73571 
001370 002775 : WORD 
001372 104201 “WORD = - 73577 
001374 000001 : WORD 
001376 060023 “WORD 60023 
000000 “WORD 
001402 104300 “WORD - 73500 
001404 002770 “WORD ©2770 
002777 :WORD 2777 
001410 104300 “WORD = 73500 
001412 002771 “WORD «2771 
001414 003000 “WORD 
001416 104301 “WORD = - 73477 
002772 “WORD ©2772 
001422 104200 “WORD - 73600 
001424 177777 “WORD -1 
001426 003002 “WORD 
001430 023063 “WORD 23063 
001432 105200 “WORD -72 
001434 000002 “WORD 
001436 002777 “WORD ©2777 
001440 “WORD = -63 
1442 002777 “WORD = 2777 
001444 053152 “WORD 53152 
1 “WORD © -6 2400 
1450 : WORD 
1452 117401 “WORD © -60377 
1454 053141 “WORD 53141 
1456 : WORD 
1460 104300 “WORD = -73 
1462 002770 “WORD 2770 
1464 002777 “WORD = 2777 
1 04300 “WORD = 73500 
1470 002771 “WORD 2771 
1472 003000 : WORD 
1474 104301 “WORD = - 73477 
1476 002772 “WORD 2772 
114000 “WORD - 
1502 003002 “WORD 3002 
1504 023063 “WORD 23063 





C15 





SEQ 0391 





ZRCFR4 CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 P 43 
vo3.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFC JZRCFC4.616;3 oe) 
506 105200 . WOR - 72600 
001510 . WOR 
001512 002777 WORD 2777 
001514 -WORD -63000 
001516 002777 WORD 2777 
1520 05 »WORD 53200 
001522 115400 -WORD -62400 
001524 000 . WORD 
1S26 117401 WORD -60377 
001530 053167 -WORD 53167 
001532 - WORD 
001534 300 -WORD -73500 
001536 002774 WORD 2774 
1540 002776 WORD 
001542 023215 WORD 23215 
001544 060010 WORD 
1546 104300 WORD -73500 
001550 002773 WORD 2773 
001552 002776 - WORD 7 
001554 023215 -WORD = 232'5 
001556 . WORD 
560 104207 -WORD -73571 
001562 002776 . WORD 
001564 Se eset : ae -73577 
001570 060022 - WORD 0022 
001572 103207 WORD = -74571 
001574 177740 -WORD~ - 
001576 115007 WORD -62771 
1600 013227 -WORD 13227 
001602 060010 -WORD 60010 
001604 000000 . WORD 
001606 165572 -WORD -12206 
001610 000000 . WORD 
12 000320 DM.13:: .WORD 320 
001614 000000 . WORD 
001616 000000 -WORD 0 
000000 . WORD 
001622 042524 -WORD 42524 
001624 052123 -WORD 52123 
001626 031461 -WORD 31461 
1630 000000 . WORD 
1632 126411 -WORD -51367 
1634 000000 . WORD 
1636 000000 -WORD 0 
000000 -WORD 0 
1642 000000 -WORD OQ 
644 000000 -WORD 0 
1646 000000 . WORD 
1650 000000 - WORD 
1652 104206 -WORD -73572 
1654 3065 . WORD 
1656 002743 -WORD 2743 
1 104200 -WORD -73600 
1662 000104 -WORD 1 
1664 3045 . WORD 5 
1666 104207 -WORD -73571 





D15 
Mer-1 
Jan-198 


SEQ 0392 
ZRCFCO_RC25 FR END TEST 27-Mar-1985 15:3 1 1 
FSET TOLERANCE TEST 11-Jan- baiis | UskRdt Partec? CZRCEC J2RCF CS, B16;3. rege 15 
WORD 3047 
-WORD = -73577 
WORD 4 
«WORD 60023 
° WORD ps4 74600 
-WORD 1 
-WORD 3047 
° WORD va 74600 
-WORD 1 
-WORD 3051 
. WORD os 64000 
-WORD 3046 
«WORD -73471 
«WORD 3047 
-WORD -73477 
-WORD 3050 
-WORD -73576 
-WORD 400 
-WORD = -73575 
. WORD 
-WORD 60020 
-WORD -62771 
-WORD 13005 
-WORD -62400 
-WORD 3046 
-WORD -71600 
-WORD 12 
-WORD 3046 
-WORD 32763 
«WORD 
. WORD -64 
-WORD 3046 
«WORD -73471 
WORD 3051 
. WORD = 73477 
-WORD 3052 
-WORD -73576 
-WORD 400 
-WORD 3066 
-WORD 6002 
«WORD -74571 
° WORD -40 
-WORD -62771 
-WORD 13033 
-WORD -624 
-WORD 3046 
-WORD -71600 
-WORD 12 
-WORD 3046 
-WORD 33007 
-WORD 304 
-WORD = -73571 
-WORD 3045 
-WORD -73577 
-WORD 1 
-WORD 60022 














CZRCFCO RC25 FR END TEST 
OFFSET TOLERANCE TEST 








E15 


27-Mar-1985 15:33:05 VAX-1 


1 Bliss-16 V4.0-579 SEQ, 0393 
11-Jan-1985 08:19:20  USER#1: (AZTEC. CZRCFCJZRCFC4.B16;3 


45 
911) 





2743 


~ 
w 
uw oO 
s 


ARS 
w 


ooosh 
R26 o 
o 







F1S 


SEQ 0394 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bligs-16 V4,.0-579 Page 46 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFCJZRCFC4.B616;3 (11) 
WORD -73600 
WORD 100 
-WORD 3134 
-WORD -73600 
WORD 140 
-WORD 3135 
-WORD -73500 
-WORD 3134 
WORD 3130 
° WORD -64 
-WORD 3131 
WORD 27006 
«WORD -,3500 
-WORD 3135 
-WORD 3130 
© WORD -64 
-WORD 3131 
-WORD 23006 
-WORD -73600 
-WORD 104 
-WORD 3126 
-WORD 3047 
© WORD = 73600 
-WORD 12 
-WORD 3132 
-WORD -73471 
-WORD 3127 
-WORD -73477 
-WORD 3130 
-WORD -73476 
-WORD 3131 
-WORD 6001 
-WORD -74571 
. WORD -40 
-WORD -62771 
-WORD 530 
° WORD ag 141 
«WORD -71477 
-WORD 3130 
-WORD 53036 
-WORD -71476 
-WORD 3131 
-WORD 53036 
-WORD 23055 
-WORD 0 
. WORD -6 
-WORD 3132 
-WORD -63 
-WORD 3132 
WORD 73044 
WORD 3011 
WORD -73600 
D 106 
WORD 3126 
WORD -73571 
WORD 3126 








G15 


SE 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-579 5 oy 47 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZ°EC.CZRCFC JZRCFC4.B616;3 (11) 
WORD -73577 
WORD 5 
WORD 60022 
-WORD 60010 
° WORD -64 
-WORD 3133 
-WORD 3127 
-WORD 60014 
-WORD -40 
-WORD -62771 
WORD 53112 
-WORD -73670 
WORD 3136 
«WORD -75600 
-WORD 40 
-WORD 3130 
-WORD 53101 
© WORD _ -71 
-WORD 40 
-WORD 313 
-WORD 33121 
-WORD 3112 
-WORD -71600 
-WORD 437 
-WORD 313 
-WORD 33121 
-WORD 3112 
° WORD = 71600 
WORD 377 
-WORD 3136 
-WORD 73121 
-WORD -62400 
-WORD 3133 
-WORD 24 
. WORD 133 
-WORD 33057 
-WORD 3122 
-WORD 0 
-WORD 106 
-WORD 3126 
-WORD 3047 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD O 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 















H15 





SEQ 0396 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-579 P 48 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFC)JZRCFC4.616;3 oe 11) 
WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
WORD 0 
-WORD 0 
WORD 0 
-WORD 44310 
-WORD 0 
OM.21:: .WORD 650 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 42524 
WORD 52123 
-WORD 30462 
-WORD 0 
-WORD  -51367 
. WORD 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD -73572 
-WORD 3223 
-WORD  -73571 
-WORD 3176 
-WORD  -73577 
WORD 2 
-WORD 60023 
-WORD -64 
-WORD 32 
-WORD -73600 
-WORD 40 
-WORD 3207 
-WORD 1 
-WORD 3176 
-WORD 12771 
-WORD -73600 
-WORD 100 
-WORD 3206 
-WORD -73600 
-WORD 140 
-WORD 3207 
-WORD -73600 
-WORD = -34 
-WORD 3202 
-WORD -73500 
-WORD 3177 - 
-WORD 3205 
-WORD -73500 
-WORD 3206 















I15 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4,0-57 ao nee 49 

OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFC JZRCFC4.B616;3 (11) 
-WORD -63000 
-WORD 3205 
-WORD 53005 
-WORD -73 
WORD 3207 
WORD 3177 
WORD -64 
WORD 32 
-WORD 23015 
-WORD 23 
. WORD -7 
. WORD 
-WORD 3175 
-WORD 3167 
-WORD -64 
WORD 3203 
-WORD -73471 
-WORD 3176 
-WORD  -73477 
-WORD 3177 
-WORD -73476 
-WORD 3200 
-WORD 60015 
-WORD -74571 
-WORD -40 
-WORD -71760 
-WORD 3200 
-WORD 53036 
-WORD -62771 
-WORD 53036 
-WORD 0 
-WORD -62400 
-WORD 3203 
. WORD = 71600 
-WORD 12 
-WORD 3203 
-WORD 33017 
-WORD 3164 
-WORD -73600 
-WORD 40 
-WORD 32 
-WORD 23121 
-WORD -64 
-WORD 3210 
«WORD -73600 
-WORD -1 
-WORD 3242 
-WORD -73600 
-WORD 3256 
WORD 3245 
-WORD -73500 
WORD 3201 
WORD 3246 
WORD -73500 
WORD 3202 
WORD 3247 
WORD -73500 








| K15 










SEQ 0399 
5:33:05 VAX-11 Phie 99-16 V4.0 Page 51 
8:19:20 USER$1: (AZTEC. CzRCECIERCFCS, B16;3 (11) 


ZRCFR4 CZRCFCO_RC2S FR END TEST 27-Mar-1985 
vo3.0 85 


1 
OFFSET TOLERANCE TEST 11-Jan-1985 0 





=] 
oo 


40000 


o 
SOOOCOCOCCOOOCOOCOCOOCOCOOOCOOCOOOOOCOSCOOCSO : Coo 


5 


OM.26:: . 


ooron 
> 
~ 
o 


So 











-——__—— 
Lis 


ZRCFRS CZRCFCO _RC2S FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 
v0O3.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFC JZRCFC4.616;3 






Ee O00 52 
at 11) 





-WORD 52123 
WORD 33062 
WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD = -73572 
-WORD 3550 
WORD 22777 
-WORD 2300 
-WORD -73572 
WORD 3550 
-WORD -71600 
-WORD -1 
-WORD 3507 
-WORD 12770 
-WORD 23030 
WORD 23043 

. WORD -7 
-WORD -1 
-WORD 3507 
-WORD -64000 
-WORD 3501 

. WORD -64 
-WORD 3477 
-WORD -64 
-WORD 35 
-WORD -73600 
-WORD 10 
-WORD 3473 
-WORD 23052 
-WORD 23 

. WORD al 7 
-WORD -1 
-WORD 3476 
-WORD 23461 
-WORD 6001 
«WORD -73571 
-WORD 3 
«WORD -73577 
-WORD 1 
-WORD 60023 
-WORD 0 
-WORD -64000 
-WORD 3504 
-WORD -73600 
-WORD 40 
-WORD 3505 

© WORD ° 7 

. WORD 








joo 


CZRCFCO RC2S5 FR END TEST 
OFFSET TOLERANCE TEST 














ee. oo 
27-Mar-1985 15:33:05 VAX-11 Bliss-1 579 ’ 
11-Jan-1985 08:19:20 USER$1: (AZTEC. CORCECIZRCFCS. B16;3 matets) 








N15 


SEQ 0402 
FR_END TEST 27-Mar-1985 15:33:05  VAX-11 Bliess-16 V4,0-579 Page 54 
ANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC .CZRCFC JZRCFC4.616;3 (11) 
WORD -62771 
-WORD 53115 
-WORD -71760 
WORD 3 
WORD 53115 
-WORD OQ 
-WORD 3424 
-WORD = -63771 
-WORD -7347 
WORD 347 
-WORD = -77107 
. WORD 
-WORD = -62371 
-WORD = -71571 
WORD 377 
-WORD 33121 
-WORD = -73571 
-WORD 3 
-WORD = -73577 
-WORD 4 
- WORD 
-WORD -73770 
-WORD 4166 
-WORD 0 
-WORD = -63771 
. WORD -73477 
-WORD 3474 
-WORD -77107 
-WORD 3566 
-WORD -62371 
-WORD = -71571 
-WORD 377 
-WORD 33142 
-WORD = -73571 
. WORD 
-WORD -73577 
- WORD 
. WORD 
«WORD -73770 
-WORD 4166 
-WORD 0 
-WORD = -73477 
-WORD 3477 
-WORD  -63771 
. WORD -73106 
. WORD 566 
«WORD -71766 
-WORD 53174 
-WORD -62371 
. WORD 14574 
-WORD 37 
-WORD 33163 
-WORD O 
-WORD -73760 
-WORD 3500 
-WORD 3424 
WORD 73600 


bese: 
















B16 


SEQ 0403 
CZRCFCO_RC2S5 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 P 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER#1: (AZTEC. CZRCFCJZRCFC4.B16;3 alah 





WORD 3552 
WORD -73600 
-WORD 3566 
-WORD 3555 
-WORD -73500 
WORD 3467 
WORD 3556 
-WORD -73500 
-WORD 3470 
WORD 3557 
-WORD -73500 
-WORD 3467 
-WORD 3564 
-WORD -73500 
WORD 3470 
-WORD 3565 
«WORD -73471 
-WORD 3506 
-WORD  -73577 
-WORD 3552 
-WORD 60002 
«WORD -73710 
-WORD 3476 
«WORD -74571 
° WORD = 0 
-WORD -62771 
-WORD 13235 
-WORD 3424 
-WORD 0 
-WORD 23074 
-WORD -640 
-WORD 3502 
-WORD -73471 
-WORD 3506 
-WORD 60014 
«WORD -73710 
-WORD 3476 
-WORD  -74571 
° WORD -40 
-WORD -62771 
-WORD 53361 
-WORD -63776 
«WORD -73665 
-WORD -71165 
-WORD 2 
-WORD 53262 
-WORD -71165 
-WORD 4 
-WORD 133 
-WORD -71165 
-WORD 4 
-WORD 53270 
-WORD -71165 
-WORD 6 
-WORD 133 
«WORD -71165 











C16 


CZRCFCO RC25 FR END TEST 27-Mar-1985 1 
OFFSET TOLERANCE TEST 11-Jan-1985 0 
“HORE 83276 


196615 - HERR 4 "te 





5:3 
8:1 


3:05 VAX-11 O1ige-16 V4 ,0-579 
9:20 USER$1; (AZTEC. CZRCFC JZRCFC4.616;3 (11) 


013306 -WORD 13306 
04613 -WORD  -73165 
erg | -WORD 2 
10661 -WORD = -71165 
WORD 4 
053361 -WORD 53361 
13 -WORD -71165 
-WORD 6 
053361 -WORD 5336 
5002 -WORD -62776 
053316 -WORD 53316 
104030 -WORD -73750 
7 «WORD 
115401 -WORD -62377 
-WORD -73576 
177777 -WORD -1 
003253 -WORD 3253 
104030 -WORD  -73750 
003470 - WORD 70 
104300 -WORD -73500 
003467 - WORD 6 
003502 -WORD 3502 
03200 -WORD -74600 
177740 -WORD -40 
3502 -WORD 3502 
102200 -WORD -756 
1 -WORD 1 
003467 . WORD 
053361 -WORD 53361 
102200 -WORD - 
010000 . WORD 
003470 -WORD 3470 
053361 -WORD 53361 
-WORD = -715 
003472 -WORD 3472 
003470 . WORD 
053361 -WORD 53361 
104302 -WORD -7 
003467 - WORD 
105202 -WORD -72576 
. WORD 
103202 -WORD -74576 
37 - WORD 
110602 -WORD -67176 
110602 -WORD -67176 
110602 -WORD -67176 
110602 -WORD -67176 
-WORD -67176 
106302 -WORD -71476 
003473 -WORD 3473 
053361 -WORD 53361 
. WORD 
003424 WORD 3424 














CZRCFCO_RC25 FR END TEST 
OFFSET TOLERANCE TEST 





D16 


27-Mar-1985 15:33:05 
11-Jan-1985 08:19:20 









VAX-1 
USERS 


1 Bli 
1:(AZ 


SEG 0405 57 
mast) 


98-16 V4,0-57 
TEC.CZRCFC JZRCFC4.616;3 











013455 


CZRCFCO_RC2S FR END TEST 
OFFSET TOLERANCE TEST 








E16 


27-Mar-1985 1 
11-Jan-1985 0 


SE0,0406 — 
matett) 


5:33:05 Vv Bliss-16 V4,0-579 
8:19:20 USER$1: (AZTEC. CZRCFCJZRCFC4.616;3 


0 
2 


3; 
9: 





oo 


-1 


OSOOSSCOSCOCOCOCOOCOOCOOOOCOOCO OOOO OCOO OOOO COCO OCCOCOO 










F16 





SEQ 0407 
P 





CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 age 59 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1;: (AZTEC.CZRCFCJZRCFC4.616;3 (11) 
000000 WORD 0 
000000 WORD 0 
000000 WORD 0 
000000 WORD 0 
000000 -WORD 0 
000000 .WORD 0 
000000 -WORD 0 
044552 -WORD 44552 
000000 -WORD 0 
001144 DM.27:: .WORD 1144 
000000 -WORD 0 
000000 -WORD 0 
000000 -WORD 0 
042524 -WORD 42524 
052123 WORD 52123 
033462 -WORD 33462 
000000 . WORD 
126411 -WORD -51367 
000000 . WORD 
000000 «WORD 0 
000000 -WORD 0 
000000 -WORD 0 
000000 -WORD 0 
000000 -WORD 0 
000000 -WORD 0 
04206 «WORD -73572 
003377 «WORD 3377 
022750 -WORD 22750 
-WORD 22756 
022776 -WORD 22776 
0 «WORD 23 
023305 -WORD 23305 
10 - WORD 
04207 «WORD -73571 
003320 -WORD 3320 
104201 «WORD -73577 
-WORD 1 
060023 -WORD 60023 
-WORD 0 
-WORD -64000 
003321 -WORD 3321 
104200 -WORD -73600 
. WORD 
-WORD 3322 
102200 «WORD -75600 
. WORD 
003320 -WORD 3320 
012775 -WORD 12775 
° WORD Log 
-WORD 1 
003321 -WORD 3321 
104200 «WORD -73600 
000140 . WORD a 
003322 -WORD 3322 
. WORD 
11 WORD -64000 
003330 WORD 0 





G16 


CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:33:05 veeatit oh iee 38 v4 


SEQ 0408 
.0-579 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$ ZTEC.CZRCFC JZRCFC4.616;3 


P 60 
011) 








H16 





at “ey 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-1 6 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCECIZRCFCS, B16;3 °F (11) 

-WORD 3316 
-WORD 53077 
-WORD -73500 
WORD 3324 
WORD 3334 
-WORD 3045 
-WORD 0 
° WORD -64000 
-WORD 3327 
-WORD -73471 
-WORD 3320 
-WORD = -73477 
WORD 3326 
-WORD -73576 
-WORD 174 
. WORD 13 
-WORD  -74571 
. WORD -40 
-WORD -62771 
-WORD 13124 
«WORD -62400 
-WORD 3327 
-WORD -71600 
-WORD 12 
-WORD 3327 
WORD 33102 
-WORD 3300 
-WORD 0 
-WORD 3320 
-WORD 60014 
7 WORD -40 
-WORD  -62771 
-WORD 53161 
«WORD -73670 
-WORD 3313 
-WORD -71600 
-WORD 440 
-WORD 3313 
-WORD 33143 
-WORD 3161 
-WORD -62377 
WORD -73670 
WORD 3314 
WORD -73661 
WORD -74571 

D -34000 

D 53161 
WORD -73661 
-WORD -74 
-WORD -71571 
-WORD 53161 
. WORD 
-WORD -62400 












I16 





SEQ 0410 
CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 P 62 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFC JZRCFC4.616;3 041) 
WORD 3331 
-WORD 144 
-WORD 3331 
WORD 33125 
WORD 33 
-WORD = -77311 
-WORD -6 
-WORD 3315 
-WORD -73600 
WORD 1475 
-WORD 3335 
«WORD -73471 
-WORD 3320 
-WORD -73477 
-WORD 3336 
-WORD -73476 
-WORD 3335 
-WORD 6001 
° WORD -40 
-WORD 333 
-WORD 53216 
-WORD -62771 
-WORD 53216 
-WORD = -73511 
«WORD 0O 
-WORD -62400 
-WORD 3315 
«WORD -71600 
-WORD 12 
-WORD 3315 
-WORD 33176 
-WORD 3300 
«WORD -77311 
-WORD - 
-WORD 3316 
> WORD -64 
-WORD 3317 
-WORD -73600 
-WORD -100000 
«WORD 3400 
-WORD -73600 
-WORD 3414 
-WORD 3403 
«WORD -73500 
-WORD 3313 
-WORD 3404 
-WORD -73500 
WORD 3314 
WORD 3405 
WORD -73500 
WORD 3313 
WORD 3412 
WORD -73500 








J16 


CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 
OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1:(AZTEC.CZRCFCJZRCFC4.B16;3 





SEQ 0411 a 
age 
(11) 


003413 WORD 3413 
104307 ‘WORD = 73471 
“WORD 0 
104201 ‘WORD = = 73577 
: WORD 
; WORD 
103207 :WORD = - 74571 
177740 :WORD 
115007 “WORD = -62771 
013267 ‘WORD 13267 
00 “WORD 6 2400 
003316 WORD 3316 
104307 “WORD = = 73471 
3400 :WORD 3400 
102207 “WORD = = 75571 
;WORD 2 
013276 ;WORD 13276 
“WORD = € 2400 
003317 “WORD 3317 
104267 [WORD == 73511 
: WORD 
104200 ‘WORD = 73600 
:WORD 1 
003333 [WORD 3333 
023305 ;WORD 23305 
060010 “WORD 6001 
104207 ‘WORD = - 73571 
003333 “WORD 3333 
104201 “WORD = = 73577 
000002 “WORD 2 
060022 “WORD 60022 
000000 [WORD 0 
000000 :WORD 0 
140000 :WORD — - 40000 
000000 ;WORD 0 
000000 ;WORD 0 
000000 :WORD 0 
000000 [WORD 0 
000000 “WORD 0 
000000 ;WORD 0 
000000 :WORD 0 
000000 “WORD 0 
000000 ;WORD 0 4 
000000 “WORD 0 : 
000000 “WORD 0 
000000 :WORD 0 
000000 “WORD 0 
000000 ;WORD 0 
000104 “WORD 104 
000000 ;WORD 0 
000000 “WORD 0 
000000 WORD 0 
000000 WORD 0 
000000 WORD 0 
000000 WORD 0 
000000 WORD 0 
000000 WORD 0 





K16 





SEQ 041 

ZRCFR4 CZRCFCO_RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bligs-16 V4.0-579 Ney 64 

vO3.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFC JZRCFC4.616;3 (11) 
006240 000000 WORD 0 
42 000000 WORD O 
006244 000000 WORD 0 
46 000000 0 
006250 000000 WORD 0 
006252 000000 0 
006254 000000 0 
006256 000000 WORD 0 
000000 0 
006262 000000 WORD 0 
006264 000000 WORD 0 
000000 -WORD 0 
006270 000000 WORD 0 
006272 000000 WORD 0 
006274 000000 WORD 0 
006276 000000 -WORD 0 
006300 000000 0 
006302 000000 WORD 0 
006304 000000 WORD 0 
000000 WORD 0 
006310 000000 WORD 0 
006312 000000 WORD 0 
006314 000000 WORD 0 
006316 000000 WORD 0 
000000 WORD 0 
006322 000000 0 
006324 000000 WORD 0 
326 000000 0 
006330 000000 WORD 0 

006332 120475 WORD -57303 

006334 000000 WORD 0 


PSECT SUMMARY 


Psect Name Words Attributes 
OMSCODE 1647 RO, DO , GBL, REL, CON 
; Library Stetistics 
ee ee Se Ele Sigh on ee ee Symbols -------- Pages Processing 
; File Totel Loaded Percent Mapped Time 
: USER$1: (AZTEC. CZRCFCJAZTECO.L16;2 485 4 0 24 00:00.2 


; COMMAND QUALIFIERS 











ZRCF RS CZRCFCO RC25 FR END TEST 27-Mar-1985 15:33:05 VAX-11 Bliss-16 V4.0-579 Page 65 
vo3.0 OFFSET TOLERANCE TEST 11-Jan-1985 08:19:20 USER$1: (AZTEC. CZRCFCJZRCFC4.816;3 (11) 
3 BLISS/PDPLI/LIST ZRCFC4.B16/EN:NOEIS 

Size: 0 code + 1647 date words 

Run Time: 03:08.2 


oo of Ge oe ae Ge oe 













L16 


SEQ 0413 


Elapsed Time: 03:20.4 
Lines/CPU Min: 1026 
Lexemes/CPU-Min: 20841 

ry Used: 442 pages 
Comp tet ion Complete 





ZRCFRS 
0001 
: 0002 


MODULE ZRCFBS = 
BEGIN 








VAX-11 
USER$1: 


faz 


98-16 V4,0- 
TEC. CZRCFC) 


579 
ZRCFCS.B16;1 








SEQ 0414 
Page 


(1 


1 
) 





LASTAD AND SETUP 


STITLE "LASTAD AND SETUP’ 

: 

REQUIRE ‘BLSMAC.REQ'; 

LIBRARY ‘AZTECO'; 

1 Maes ADDRESS AND SETUP SECTION 
Pucene, 


ee ee G6 Ge Ge Ge Ge Gt Ge Ge Ge oF 
~ 
fa 
wo 
~ 
2 PDI be ee ee peo eo bee po pe pee 


- TITLE 


.PSECT 
BLSLAS:: .WORD 
T$FREE: : .WORD 


LSLAST== 
TSPTHVe= 


SBTTL 


000000 000207 END .LINK: ¢ 


Routine Base: $XYZ$ «+ 


; Routine Size: 1 word, 
0 words 


; Maximum stack depth per invocation: 


; 1503 1 END 
3 1504 1 

; 1505 0 ELUDOM 

: PSECT SUMMARY 
; Psect Neme Words Attr 
3 $xYZ$ 4 RO 
3 Library Statistics 

; File wr 
; USER$1:(AZTEC.CZRCFCJAZTECO.L16;2 485 


Bi 


27-Mer-1985 15:36:31 
11-Jen-1985 08:19:21 


ZRCFBS LASTAD AND SETUP 
$xYZ$, RO 
TSFRE 
a 
BLSLAS+4 
0 
$END.LINK LAST ADDRESS AND SETUP SECTION 
PC " % 
0006 
ibutes 
° » LCL, REL, CON 


ymbols -------- Pages Processing 
Loaded Percent Mapped Time 
0 Se « 24 00:00.3 





VAX-11 Bliss-1 
USER$1: (AZTEC. 





SEQ 0415 


6 V4.0-579 Page 
CZRCFC )ZRCFCS.616;1 (2) 





ZRCFRS LASTAD AND SETUP 
LAST ADDRESS AND SETUP SECTION 


; COMMAND QUALIFIERS 
; BLISS/PDP11/LIST ZRCFCS.B16/EN:NOEIS 


jee: 3 date words 
Run fine: de 75) beets 


: 
; 

Time: 00:20.3 
: Elepeesyimta: aise 

; Lexemes/CPU-Min: 24031 

; Memor : 95 pages 
: Conn t let ten Complete 





C1 


27-Mar-1985 15:36:31 
11-Jan-1985 08:19:21 


VAX-11 Bliss-16 V4.0-579 
USER$1;(AZTEC.CZRCFCJZRCFCS.B16;1 












04 
Seq, 16 


age 
(2) 


